Commit f9d25f56 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #5037

parent eb6f5d31
{-# 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 )
f :: Data.Maybe.Maybe GHC.Types.Int -> GHC.Types.Int
f (Data.Maybe.Nothing) = 3
f (Data.Maybe.Just x_0) = x
......@@ -180,3 +180,4 @@ test('T4436', normal, compile, ['-v0 -ddump-splices'])
test('T4949', normal, compile, ['-v0'])
test('T5126', normal, compile, ['-v0'])
test('T5217', normal, compile, ['-v0 -dsuppress-uniques -ddump-splices'])
test('T5037', normal, compile, ['-v0'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment