testsuite/tests/simplCore/should_compile/T22375.hs


1
2
3
4
5
6
7
8
9
10
11
12

module T22375 where

data X = A | B | C | D | E
  deriving Eq

f :: X -> Int -> Int
f x v
  | x == A = 1 + v
  | x == B = 2 + v
  | x == C = 3 + v
  | x == D = 4 + v
  | otherwise = 5 + v