22 lines
680 B
Haskell
22 lines
680 B
Haskell
|
{-# LANGUAGE BangPatterns #-}
|
||
|
|
{-# LANGUAGE DeriveDataTypeable #-}
|
||
|
|
{-# LANGUAGE TypeFamilies #-}
|
||
|
|
{-# LANGUAGE RebindableSyntax #-}
|
||
|
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||
|
|
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)
|