module System.LookupEnv (lookupEnv) where import System.Environment (getEnvironment) lookupEnv :: String -> IO (Maybe String) lookupEnv :: String -> IO (Maybe String) lookupEnv String envVar = forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b fmap (forall a b. Eq a => a -> [(a, b)] -> Maybe b lookup String envVar) forall a b. (a -> b) -> a -> b $ IO [(String, String)] getEnvironment