Setup.hs

{-# LANGUAGE ViewPatterns #-}

import           Control.Monad                      (when)
import           Distribution.Simple                (UserHooks (postReg), defaultMainWithHooks,
                                                     simpleUserHooks)
import           Distribution.Simple.LocalBuildInfo (LocalBuildInfo (configFlags))
import           Distribution.Simple.Setup          (ConfigFlags (configConfigurationsFlags))
import           Distribution.PackageDescription    (FlagName (..))
import           System.Exit                        (ExitCode (..), exitWith)
import           System.Process                     (system)

main :: IO ()
main =
    defaultMainWithHooks $
    simpleUserHooks
    { postReg = hs2purs
    }
  where
    hs2purs _ _ _ (configFlags -> configConfigurationsFlags -> flags) =
        when ((FlagName "befrontend", True) `elem` flags) $ do
            system "stack $NIX_STACK exec -- rscoin-hs2purs" >>= printError
            -- FIXME: https://gitlab.serokell.io/rscoin/rscoin/commit/fc8d36123dba122a4ce41053e1881ea5e1873030#note_1193
            system
                "cd block-explorer; npm install; npm run build" >>=
                printError
    printError ExitSuccess = return ()
    printError e = exitWith e