Commit b0a50e9a authored by simonpj's avatar simonpj
Browse files

Test Trac #2604

parent 8901f377
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Test where
import Data.Typeable
data DList a = DList [a] deriving(Typeable)
newtype NList a = NList [a] deriving(Typeable)
T2604.hs:7:34:
Can't make a derived instance of `Typeable (DList a)'
(You need -XDeriveDataTypeable to derive an instance for this class)
In the data type declaration for `DList'
T2604.hs:9:37:
Can't make a derived instance of `Typeable (NList a)'
(You need -XDeriveDataTypeable to derive an instance for this class)
In the newtype declaration for `NList'
......@@ -19,3 +19,4 @@ test('drvfail016',
run_command,
['$MAKE --no-print-directory -s drvfail016'])
test('T2394', normal, compile_fail, [''])
test('T2604', normal, compile_fail, [''])
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