@@ -97,7 +97,7 @@ jstring_ = do
9797{-# INLINE jstring_ #-}
9898
9999reparse :: 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
101101 Done "" r -> return r
102102 Fail _ _ msg -> fail msg
103103 _ -> fail "unexpected failure"