ghc-mod-5.1.0.0: test/data/pattern-synonyms/B.hs

{-# LANGUAGE PatternSynonyms #-}
module B where
import A

foo :: SomeType Int Char -> String
foo x = case x of
          MyPat a b -> show a ++ " " ++ [b]