testsuite/tests/th/T5037.hs


1
2
3
4
5
6
7
8
9
10
11

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

$( do ds <- [d|  f :: Maybe Int -> Int
                 f Nothing = 3
                 f (Just x) = $(varE (mkName "x"))
            |]
      runIO $ (putStrLn (pprint ds) >> hFlush stdout)
      return ds )