@@ -148,7 +148,7 @@ prettyPrintMany f xs = do
149objectKeyRequiresQuoting :: Text -> Bool
149objectKeyRequiresQuoting :: Text -> Bool
150objectKeyRequiresQuoting s =
150objectKeyRequiresQuoting s =
151− s `elem` reservedPsNames || isUnquotedKey s
151+ s `elem` reservedPsNames || not (isUnquotedKey s)
153-- | Place a box before another, vertically when the first box takes up multiple lines.
153-- | Place a box before another, vertically when the first box takes up multiple lines.
154before :: Box -> Box -> Box
154before :: Box -> Box -> Box