Drop some dead code
commitb7ad8c1d14e6eddc4913f3af5e404528eef7ede5
authorBryan O'Sullivan <bos@serpentine.com>
dateMon 20 Jul 2015, 13:59 (11 years ago)
parentde51477
Data/Aeson/Parser/Internal.hs−1
@@ -112,7 +112,6 @@ object_' = {-# SCC "object_'" #-} do
112112objectValues :: Parser Text -> Parser Value -> Parser (H.HashMap Text Value)
113113objectValues str val = do
114114 skipSpace
115− let pair = liftA2 (,) (str <* skipSpace) (char ':' *> val)
116115 w <- A.peekWord8'
117116 if w == CLOSE_CURLY
118117 then A.anyWord8 >> return H.empty