Escape any operators characters in objects.
commitf9de12505bddd6cbc3a98f87b35932ce902e2db5
authorjoneshf <jones3.hardy@gmail.com>
dateThu 21 Aug 2014, 03:40 (12 years ago)
parent0239693
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