Ticket #5508: THPrettyBug.hs
| File THPrettyBug.hs, 398 bytes (added by mgsloan1, 21 months ago) |
|---|
| Line | |
|---|---|
| 1 | {-# LANGUAGE TemplateHaskell, QuasiQuotes, ViewPatterns #-} |
| 2 | |
| 3 | import Language.Haskell.TH |
| 4 | import Language.Haskell.TH.Quote |
| 5 | |
| 6 | x = mkName "x" |
| 7 | |
| 8 | thb = QuasiQuoter (const [| $(return . LamE [VarP x] $ VarE x) . id |]) |
| 9 | undefined undefined undefined |
| 10 | |
| 11 | -- Gives correct output: "(\\x -> x) GHC.Base.. GHC.Base.id" |
| 12 | main = print . pprint =<< runQ [| $(return . LamE [VarP x] $ VarE x) . id |] |
