third_party/bazel/rules_haskell/tests/haddock/TH.hs


1
2
3
4
5
6
7

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