构建命令（Haskell构建系统）后的Cabal

Question

构建应用程序后，是否可以告诉Cabal运行一些命令？

我想要例如使用脚本生成一些.hs文件，并在构建后将一些其他文件复制到dist/build/app目录。

Answer 1

是的。看看postInst和相关类型/操作。

Distribution.Simple.UserHooks

这里有一个简单的例子，你可以hoogle相关操作，以找出更多。 这会执行各种.sh脚本，拷贝文件等。 absoluteInstallDirs告诉你cabal正在放哪些文件，应该是 你需要它。

希望这有助于！

import Distribution.Simple 
import Distribution.Simple.LocalBuildInfo 
import System.Process 
import System.Exit 

main = defaultMainWithHooks fixpointHooks 

fixpointHooks = simpleUserHooks { postInst = buildAndCopyFixpoint } 

buildAndCopyFixpoint _ _ pkg lbi 
    = do putStrLn $ "Post Install: " ++ show binDir -- , libDir) 
     executeShellCommand "./configure" 
     executeShellCommand "./build.sh" 
     executeShellCommand $ "chmod a+x external/fixpoint/fixpoint.native " 
     executeShellCommand $ "cp external/fixpoint/fixpoint.native " ++ binDir 
     executeShellCommand $ "cp external/z3/lib/libz3.* " ++ binDir 
    where 
    allDirs  = absoluteInstallDirs pkg lbi NoCopyDest 
    binDir  = bindir allDirs ++ "/" 

executeShellCommand cmd = putStrLn ("EXEC: " ++ cmd) >> system cmd >>= check 
    where 
    check (ExitSuccess) = return() 
    check (ExitFailure n) = error $ "cmd: " ++ cmd ++ " failure code " ++ show n 
fixpointHooks = simpleUserHooks { postInst = buildAndCopyFixpoint }