testsuite/tests/th/T10596.hs


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

{-# LANGUAGE TemplateHaskell #-}
module T10596 where
import Language.Haskell.TH
import Language.Haskell.TH.Syntax
import System.IO

do
  putQ (100 :: Int)
  x <- (getQ :: Q (Maybe Int))

  -- It should print "Just 100"
  runIO $ print x
  runIO $ hFlush stdout
  return []