ghc-exactprint-1.9.0.0: tests/examples/pre-ghc910/T8101b.hs

module A where

data ABC = A | B | C

abc :: ABC -> Int
abc x = case x of
    A -> 1