Actions.hs

-- | Convenient Shake 'Action's for 'B9' rules.
module B9.Shake.Actions (b9InvokationAction, buildB9File) where

import Development.Shake
import Development.Shake.FilePath
import B9

-- | Convert a 'B9Invokation' action into a Shake 'Action'.
b9InvokationAction :: B9Invokation a -> Action (a, Bool)
b9InvokationAction = liftIO . runB9 . defaultB9RunParameters

-- | An action that does the equivalent of
-- @b9c build -f <b9file> -- (args !! 0) (args !! 1) ... (args !! (length args - 1))@
-- with the current working directory changed to @b9Root@.
buildB9File :: FilePath -> FilePath -> [String] -> Action ()
buildB9File b9Root b9File args = do
    let f = b9Root </> b9File
    need [f]
    (_, success) <- b9InvokationAction $ do
        modifyInvokationConfig (appendPositionalArguments args)
        overrideWorkingDirectory b9Root
        runBuildArtifacts [f]
    if success then return () else fail $ "ERROR: Build failed: " ++ f