module Basement.Environment
    ( getArgs
    , lookupEnv
    ) where

import           Basement.Compat.Base
import           Basement.UTF8.Base (String)
import qualified System.Environment as Sys (getArgs, lookupEnv)

-- | Returns a list of the program's command line arguments (not including the program name).
getArgs :: IO [String]
getArgs = fmap fromList <$> Sys.getArgs

-- | Lookup variable in the environment
lookupEnv :: String -> IO (Maybe String)
lookupEnv s = fmap fromList <$> Sys.lookupEnv (toList s)