Modify a couple of error messages slightly
[ghc.git] / testsuite / tests / gadt / T5424.hs
1 {-# LANGUAGE GADTs #-}
2 {-# OPTIONS_GHC -Wall #-}
3
4 module W where
5
6 import T5424a
7
8 data D a where
9 C1 :: D X
10 C2 :: D Y
11
12 f :: D X -> Int
13 f C1 = 1