{-# OPTIONS_GHC -fno-warn-tabs #-}
module Utility.Env.Basic where
import Utility.Exception
import Control.Applicative
import Data.Maybe
import Prelude
import qualified System.Environment as E
getEnv :: String -> IO (Maybe String)
getEnv :: String -> IO (Maybe String)
getEnv = forall (m :: * -> *) a. MonadCatch m => m a -> m (Maybe a)
catchMaybeIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> IO String
E.getEnv
getEnvDefault :: String -> String -> IO String
getEnvDefault :: String -> String -> IO String
getEnvDefault String
var String
fallback = forall a. a -> Maybe a -> a
fromMaybe String
fallback forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> String -> IO (Maybe String)
getEnv String
var