ghc-exactprint-0.5.0.0: tests/examples/ghc8/T8101b.hs

module A where

data ABC = A | B | C

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