Mention which -Werror promoted a warning to an error
[ghc.git] / testsuite / tests / warnings / should_fail / WerrorFail2.hs
1 {-# OPTIONS_GHC -Wall
2 -Werror=incomplete-patterns
3 -Werror=missing-fields #-}
4
5 module Werror03 where
6
7 data Rec = Rec
8 { f1 :: Int
9 , f2 :: Int
10 } deriving (Show)
11
12 data S = C1 Int | C2 Int
13
14 -- incomplete pattern
15 sInt s = case s of
16 C1 i -> i
17
18 -- missing field
19 printRec = print Rec{ f1 = 1 }