Fix object key quoting
commit40c0954e18ba17f12d1a8ec1c5f51fd8fb176a84
authorHarry Garrood <harry@garrood.me>
dateSun 8 Jan 2017, 04:25 (10 years ago)
parentc09ceb7
src/Language/PureScript/Pretty/Common.hs+1−1
@@ -148,7 +148,7 @@ prettyPrintMany f xs = do
148148
149149objectKeyRequiresQuoting :: Text -> Bool
150150objectKeyRequiresQuoting s =
151− s `elem` reservedPsNames || isUnquotedKey s
151+ s `elem` reservedPsNames || not (isUnquotedKey s)
152152
153153-- | Place a box before another, vertically when the first box takes up multiple lines.
154154before :: Box -> Box -> Box