1
1
mirror of https://github.com/aelve/guide.git synced 2024-11-23 04:07:14 +03:00
guide/Setup.hs

17 lines
420 B
Haskell
Raw Normal View History

2016-02-02 12:35:39 +03:00
import Distribution.Simple
import System.Process
main = do
hooks <- buildJS simpleUserHooks
defaultMainWithHooks hooks
buildJS hooks = do
let originalpreBuild = preBuild hooks
return $ hooks {
preBuild = \args flags -> do
let npmbuild = proc "sh" ["./scripts/buildjs.sh"]
(_, _, _, buildHandle) <- createProcess npmbuild
waitForProcess buildHandle
originalpreBuild args flags
}