1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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)
|
