module Development.Shake.Plus.Env (
getEnv
, getEnvWithDefault
, getEnvError
) where
import Control.Exception.Extra
import qualified Development.Shake
import Development.Shake.Plus
import RIO
getEnv :: MonadAction m => String -> m (Maybe String)
getEnv = liftAction . Development.Shake.getEnv
getEnvWithDefault :: MonadAction m => String -> String -> m String
getEnvWithDefault def var = liftAction $ Development.Shake.getEnvWithDefault def var
getEnvError :: (Partial, MonadAction m) => String -> m String
getEnvError = liftAction . Development.Shake.getEnvError