Encode shape information in `PmOracle`
[ghc.git] / testsuite / tests / deSugar / should_compile / T14546d.hs
1 data D = D deriving Eq
2
3 instance Num D where
4 fromInteger _ = D
5
6 main = do
7 case 3 :: D of
8 1 -> putStrLn "A"