@@ -102,10 +102,7 @@ object_' = {-# SCC "object_'" #-} do
102102objectValues :: Parser Text -> Parser Value -> Parser (H.HashMap Text Value)
103103objectValues str val = do
104104 skipSpace
105− let pair = do
106− a <- str <* skipSpace
107− b <- char ':' *> skipSpace *> val
108− return (a,b)
105+ let pair = liftA2 (,) (str <* skipSpace) (char ':' *> skipSpace *> val)
109106 H.fromList <$> commaSeparated pair closeCurly
110107{-# INLINE objectValues #-}
111108