hannahci-0.1.4.2: Setup.hs

module Main where

import Distribution.PackageDescription (PackageDescription)
import Distribution.Simple
import Distribution.Simple.LocalBuildInfo
import Distribution.Simple.Setup (InstallFlags)
import System.Process (callCommand)

main :: IO ()
main = defaultMainWithHooks fixpointHooks

fixpointHooks :: UserHooks
fixpointHooks = simpleUserHooks { postInst = setup }

setup :: Args -> InstallFlags -> PackageDescription -> LocalBuildInfo -> IO ()
setup _ _ desc lbi = do
  callCommand $ "chmod +x " ++ (show dataDir) ++ "setup-local.sh"
  callCommand $ "sudo " ++ (show dataDir) ++ "setup-local.sh"
  return ()
  where dataDir = datadir allDirs ++ "/"
        allDirs = absoluteInstallDirs desc lbi NoCopyDest