testsuite/tests/codeGen/should_compile/T14373c.hs


1
2
3
4
5
6
7
8
9

module T14373c where

data BigFam = A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P

{-# NOINLINE mixedSwitch #-}
mixedSwitch A = True
mixedSwitch B = False
mixedSwitch C = False
mixedSwitch P = True