Fix #11287.
[ghc.git] / testsuite / tests / th / TH_lookupName_Lib.hs
1 module TH_lookupName_Lib where
2
3 import Language.Haskell.TH
4
5 f :: String
6 f = "TH_lookupName_Lib.f"
7
8 lookup_f :: Q Exp
9 lookup_f = do { Just n <- lookupValueName "f"; varE n }