Don't throw exception when start_phase==stop_phase (#10219)
[ghc.git] / testsuite / tests / driver / T8101.hs
1
2 module A where
3
4 data ABC = A | B | C
5
6 abc :: ABC -> Int
7 abc x = case x of
8 A -> 1