blob: ad97020e7090fbfd5aae764cd19774ad3dda31b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
-- Same as T14471 but also enables RebindableSyntax, since that's a
-- tricky case.
{-# LANGUAGE ApplicativeDo #-}
{-# LANGUAGE RebindableSyntax #-}
{-# LANGUAGE TemplateHaskell #-}
import Language.Haskell.TH
import Prelude
main = putStrLn $(do
expr <- [|
do x <- getLine
y <- getLine
pure (x, y)
|]
stringE (pprint expr))
|
