testsuite/tests/th/T14471.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# LANGUAGE ApplicativeDo #-}
{-# LANGUAGE TemplateHaskell #-}

import Language.Haskell.TH
import Prelude

main = putStrLn $(do
  expr <- [|
    do x <- getLine
       y <- getLine
       pure (x, y)
    |]
  stringE (pprint expr))