Workaround for #340

2014-09-12 03:48:22 +02:00
parent b9890a90ed
commit 1c8d1edb4d
7 changed files with 56 additions and 5 deletions
--- a/test/data/pattern-synonyms/B.hs
+++ b/test/data/pattern-synonyms/B.hs
@@ -0,0 +1,7 @@
+{-# LANGUAGE PatternSynonyms #-}
+module B where
+import A
+
+foo :: SomeType Int Char -> String
+foo x = case x of
+          MyPat a b -> show a ++ " " ++ [b]