7 lines
165 B
Haskell
7 lines
165 B
Haskell
module TH (foo) where
|
|
|
|
import Language.Haskell.TH
|
|
import Language.Haskell.TH.Syntax (lift)
|
|
|
|
foo :: Q Exp
|
|
foo = runIO (readFile "tests/haddock/unicode.txt") >>= lift
|