ghc-exactprint-0.5.3.1: tests/examples/ghc80/T8101b.hs

module A where

data ABC = A | B | C

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