@@ -112,7 +112,6 @@ object_' = {-# SCC "object_'" #-} do
112objectValues :: Parser Text -> Parser Value -> Parser (H.HashMap Text Value)
112objectValues :: Parser Text -> Parser Value -> Parser (H.HashMap Text Value)
113objectValues str val = do
113objectValues str val = do
114 skipSpace
114 skipSpace
115− let pair = liftA2 (,) (str <* skipSpace) (char ':' *> val)
116 w <- A.peekWord8'
115 w <- A.peekWord8'
117 if w == CLOSE_CURLY
116 if w == CLOSE_CURLY
118 then A.anyWord8 >> return H.empty
117 then A.anyWord8 >> return H.empty