sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-31 05:44:51 +09:00
Code Issues Activity

Darcs patch parser: Make sure we read the whole patch successfully

Browse source
This commit is contained in:
fr33domlover 2018-07-10 16:00:01 +00:00
parent edaf141359
commit 01163dfe9a
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Vervis/Darcs.hs
View file

@ -273,7 +273,8 @@ readPatch path hash = do
li <- handle =<< readLatestInventory path latestInventoryAllP li <- handle =<< readLatestInventory path latestInventoryAllP
mp <- loop pih (liPatches li) (fst <$> liPrevTag li) mp <- loop pih (liPatches li) (fst <$> liPrevTag li)
for mp $ \ (pi, pch) -> do for mp $ \ (pi, pch) -> do
(_pir, hunks) <- handle =<< readCompressedPatch path pch P.patch (_pir, hunks) <-
handle =<< readCompressedPatch path pch (P.patch <* A.endOfInput)
let (an, ae) = let (an, ae) =
either error id $ either error id $
A.parseOnly (author <* A.endOfInput) $ piAuthor pi A.parseOnly (author <* A.endOfInput) $ piAuthor pi