Commit f64f7c36 authored by Jan Stolarek's avatar Jan Stolarek

Tests for #10945 and #10946

parent e2b579e8
{-# LANGUAGE TemplateHaskell #-}
module T10945 where
import Language.Haskell.TH
$$(return [
SigD (mkName "m")
(ForallT [PlainTV (mkName "a")]
[]
(AppT (AppT ArrowT (VarT (mkName "a"))) (VarT (mkName "a"))))
, FunD (mkName "m")
[Clause [VarP (mkName "x")] (NormalB (VarE (mkName "x"))) []]
])
{-# LANGUAGE TemplateHaskell #-}
module T10946 where
import Language.Haskell.TH
m :: a -> a
m x = $$([||_||])
...@@ -360,3 +360,5 @@ test('TH_namePackage', normal, compile_and_run, ['-v0']) ...@@ -360,3 +360,5 @@ test('TH_namePackage', normal, compile_and_run, ['-v0'])
test('T10811', normal, compile, ['-v0']) test('T10811', normal, compile, ['-v0'])
test('T10810', normal, compile, ['-v0']) test('T10810', normal, compile, ['-v0'])
test('T10891', normal, compile, ['-v0']) test('T10891', normal, compile, ['-v0'])
test('T10945', expect_broken(10945), compile, ['-v0'])
test('T10946', expect_broken(10946), 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