libraries/base/tests/System/T5930.hs


1
2
3
4
5
6
7
8
9
10

import Control.Monad (when)
import Data.Maybe (isJust)
import System.Environment (lookupEnv)

main :: IO ()
main = do
    term <- lookupEnv "PATH"
    when (isJust term) $ putStrLn "Got PATH"
    fish <- lookupEnv "One fish, two fish, red fish, blue fish"
    print fish