構建命令（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 }