Merge pull request #567 from joneshf/master
Escape any operators characters in objects.
commit98eaa39db9e1194e5b94872d5118018fcaff343c
authorPhil Freeman <paf31@cantab.net>
dateThu 21 Aug 2014, 08:42 (12 years ago)
parent0239693f9de125
src/Language/PureScript/Pretty/Common.hs+1−1
@@ -65,5 +65,5 @@ prettyPrintMany f xs = do
6565--
6666prettyPrintObjectKey :: String -> String
6767prettyPrintObjectKey s | s `elem` reservedPsNames = show s
68− | head s `elem` opChars = show s
68+ | any (`elem` opChars) s = show s
6969 | otherwise = s