Fix closing paren

purescript · Oct 9, 2015 · 2ac5c78 · 2ac5c78
1 parent da00505
commit 2ac5c78
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Language/PureScript/Pretty/Types.hs b/src/Language/PureScript/Pretty/Types.hs
@@ -117,7 +117,7 @@ insertPlaceholders = everywhereOnTypesTopDown convertForAlls . everywhereOnTypes
   convertForAlls other = other
 
 matchTypeAtom :: Pattern () Type Box
-matchTypeAtom = typeLiterals <+> fmap ((text "(" <>) . (<> text ")")) matchType
+matchTypeAtom = typeLiterals <+> fmap ((`before` text ")") . (text "(" <>)) matchType
 
 matchType :: Pattern () Type Box
 matchType = buildPrettyPrinter operators matchTypeAtom