@@ -97,7 +97,7 @@ jstring_ = do
97{-# INLINE jstring_ #-}
97{-# INLINE jstring_ #-}
99reparse :: Parser a -> ByteString -> Parser a
99reparse :: Parser a -> ByteString -> Parser a
100−reparse p s = case (case parse p s of {Partial k -> k ""; r -> r}) of
100+reparse p s = case parse p s `feed` "" of
101 Done "" r -> return r
101 Done "" r -> return r
102 Fail _ _ msg -> fail msg
102 Fail _ _ msg -> fail msg
103 _ -> fail "unexpected failure"
103 _ -> fail "unexpected failure"