Commit 4feb0ead authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #5833

parent c4a89da5
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}
module T5883 where
import Language.Haskell.TH
$( [d|
data Unit = Unit
instance Show Unit where
show _ = ""
{-# INLINE show #-}
|])
T5883.hs:1:1: Splicing declarations
[d| data Unit = Unit
instance Show Unit where
show _ = ""
{-# INLINE show #-} |]
======>
T5883.hs:(7,4)-(12,4)
data Unit = Unit
instance Show Unit where
{-# INLINE show #-}
show _ = ""
......@@ -221,4 +221,5 @@ test('T5700', extra_clean(['T5700a.hi','T5700a.o']),
multimod_compile, ['T5700','-v0 -ddump-splices'])
test('T5721', normal, compile, ['-v0'])
test('T1541', normal, compile, ['-v0'])
test('T5883', normal, compile, ['-v0 -dsuppress-uniques -ddump-splices'])
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