Ticket #820: DefineTH.hs

File DefineTH.hs, 227 bytes (added by guest, 8 years ago)
Line 
1module DefineTH 
2
3where 
4import Language.Haskell.TH
5import Language.Haskell.TH.Syntax
6import System
7
8getEnvExpr :: String -> String -> ExpQ 
9getEnvExpr s alt = 
10    (runIO $ System.getEnv s `catch` (\e -> return alt)) >>= lift