@@ -65,5 +65,5 @@ prettyPrintMany f xs = do
66prettyPrintObjectKey :: String -> String
66prettyPrintObjectKey :: String -> String
67prettyPrintObjectKey s | s `elem` reservedPsNames = show s
67prettyPrintObjectKey s | s `elem` reservedPsNames = show s
68− | head s `elem` opChars = show s
68+ | any (`elem` opChars) s = show s
69 | otherwise = s
69 | otherwise = s