Fix #11287.
[ghc.git] / testsuite / tests / th / T10734.hs
1 {-# LANGUAGE TemplateHaskell #-}
2 module Main where
3
4 import Language.Haskell.TH
5
6 main :: IO ()
7 main = do
8 pprint <$> runQ [| do { let { }; return (); } |] >>= putStrLn
9 pprint <$> runQ [| do { let { x = 5 }; return x; } |] >>= putStrLn
10 pprint <$> runQ [| do { let { x = 5; y = 3 }; return x; } |] >>= putStrLn