blob: 05aef868b05557a030d00042b200ccdf7cf1ed0f (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# LANGUAGE TemplateHaskell #-}
module Main where
import Language.Haskell.TH
main :: IO ()
main = do
pprint <$> runQ [| do { let { }; return (); } |] >>= putStrLn
pprint <$> runQ [| do { let { x = 5 }; return x; } |] >>= putStrLn
pprint <$> runQ [| do { let { x = 5; y = 3 }; return x; } |] >>= putStrLn
|
