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