Fix #11287.
[ghc.git] / testsuite / tests / th / T6005a.hs
1 {-# LANGUAGE TemplateHaskell #-}
2
3 module T6005a where
4
5 -- The point here is that we don't need to generate the
6 -- derived code inside the bracket; doing so is troublesome
7 -- and it should never be type incorrect, so it's also a
8 -- waste of effort.
9
10 $( [d|
11 data Nat = Zero | Succ Nat deriving( Show )
12 |] )
13
14 foo :: String
15 foo = show (Succ Zero)