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

Add test T8028

parent b098a7ac
{-# LANGUAGE TemplateHaskell #-}
module T8028 where
import T8028a
$(x)
\ No newline at end of file
T8028.hs:7:3:
Illegal empty closed type family
When splicing a TH declaration: type family F_0 where
module T8028a where
import Language.Haskell.TH
x = do n <- newName "F"
return [ClosedTypeFamilyD n [] Nothing []]
......@@ -275,4 +275,9 @@ test('T7681', normal, compile, ['-v0'])
test('T7910', normal, compile_and_run, ['-v0'])
test('ClosedFam1', normal, compile, ['-dsuppress-uniques -v0'])
test('ClosedFam2', normal, compile, ['-v0'])
\ No newline at end of file
test('ClosedFam2', normal, compile, ['-v0'])
test('T8028',
extra_clean(['T8028a.hi', 'T8028a.o']),
multimod_compile_fail,
['T8028', '-v0 ' + config.ghc_th_way_flags])
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