module Development.Shake.Plus.Extended.Simple (
SimpleSPlusEnv(..)
, runLoggedShakePlus
, runSimpleShakePlus
) where
import Control.Exception
import Development.Shake.Plus
import Development.Shake.Plus.Extended.FileRules
import RIO
data SimpleSPlusEnv = SimpleSPlusEnv {
logFunc :: LogFunc
, localOut :: Path Rel Dir
}
instance HasLogFunc SimpleSPlusEnv where
logFuncL = lens logFunc (\x y -> x { logFunc = y} )
instance HasLocalOut SimpleSPlusEnv where
localOutL = lens localOut (\x y -> x { localOut = y})
runLoggedShakePlus :: MonadIO m => ShakePlus LogFunc a -> m ()
runLoggedShakePlus m = do
lo <- logOptionsHandle stderr True
(lf, dlf) <- newLogFunc (setLogMinLevel LevelInfo lo)
liftIO $ shakeArgs shakeOptions $ void $ runShakePlus lf m
dlf
runSimpleShakePlus :: MonadIO m => Path Rel Dir -> ShakePlus SimpleSPlusEnv a -> m ()
runSimpleShakePlus outputFolder m = do
lo <- logOptionsHandle stderr True
(lf, dlf) <- newLogFunc (setLogMinLevel LevelInfo lo)
let env = SimpleSPlusEnv lf outputFolder
liftIO $ shakeArgs shakeOptions $ void $ runShakePlus env m
dlf