ghc-exactprint-1.6.0: tests/examples/ghc92/CommentPlacement5.hs

module CommentPlacement5 where

bar :: Foo -> ()
bar a =
  case a of
    GInt -> ()
    -- GBool -> ()
bar _ = ()