Merge pull request purescript#567 from joneshf/master

paf31 · paf31 · commit 98eaa39db9e1 · 2014-08-21T08:42:38.000-07:00
Escape any operators characters in objects.
diff --git a/src/Language/PureScript/Pretty/Common.hs b/src/Language/PureScript/Pretty/Common.hs
@@ -65,5 +65,5 @@ prettyPrintMany f xs = do
 --
 prettyPrintObjectKey :: String -> String
 prettyPrintObjectKey s | s `elem` reservedPsNames = show s
-                       | head s `elem` opChars = show s
+                       | any (`elem` opChars) s = show s
                        | otherwise = s
