1
1
mirror of https://github.com/aelve/guide.git synced 2024-12-22 20:31:31 +03:00

Add no-js option for building

This commit is contained in:
vrom911 2017-08-19 18:13:24 +03:00
parent c5b0e561e9
commit 138265ac84

View File

@ -1,9 +1,14 @@
import Distribution.Simple import Distribution.Simple
import System.Process import System.Process
import System.Environment (lookupEnv)
main = do main = do
hooks <- buildJS simpleUserHooks js <- lookupEnv "NO_JS"
defaultMainWithHooks hooks case js of
Just "true" -> defaultMain
_ -> do
hooks <- buildJS simpleUserHooks
defaultMainWithHooks hooks
buildJS hooks = do buildJS hooks = do
let originalPostBuild = postBuild hooks let originalPostBuild = postBuild hooks