Commit adb20a0a authored by eir@cis.upenn.edu's avatar eir@cis.upenn.edu

Test #1476 in th/T1476

parent da2fca9e
{-# LANGUAGE TemplateHaskell #-}
module T1476 where
import Language.Haskell.TH
foo $( return $ VarP $ mkName "x" ) = x
bar $( [p| x |] ) = x
baz = [| \ $( return $ VarP $ mkName "x" ) -> $(dyn "x") |]
......@@ -344,3 +344,4 @@ test('T8100', normal, compile, ['-v0'])
test('T9064', normal, compile, ['-v0'])
test('T9209', normal, compile_fail, ['-v0'])
test('T7484', normal, compile_fail, ['-v0'])
test('T1476', expect_broken(1476), 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