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

Fix infinite loop in getBundleR

Browse source
This commit is contained in:
fr33domlover 2022-09-27 18:08:59 +00:00
parent 7ced46d0c3
commit 088d166d13
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Vervis/Handler/Cloth.hs
View file

@ -437,7 +437,7 @@ getBundleR loomHash clothHash bundleHash = do
bundleID <- decodeKeyHashid404 bundleHash bundleID <- decodeKeyHashid404 bundleHash
bundle <- get404 bundleID bundle <- get404 bundleID
unless (bundleTicket bundle == clothID) notFound unless (bundleTicket bundle == clothID) notFound
latest :| prevs <- latest :| olds <-
case justHere proposal of case justHere proposal of
Nothing -> error "Why didn't getCloth find any bundles" Nothing -> error "Why didn't getCloth find any bundles"
Just bundles -> return bundles Just bundles -> return bundles
@ -448,8 +448,8 @@ getBundleR loomHash clothHash bundleHash = do
Just ne -> return ne Just ne -> return ne
let (prevs, mcurr) = let (prevs, mcurr) =
if bundleID == latest if bundleID == latest
then (prevs, Nothing) then (olds, Nothing)
else ([] , Just latest) else ([] , Just latest)
return (patches, prevs, mcurr) return (patches, prevs, mcurr)
encodeRouteLocal <- getEncodeRouteLocal encodeRouteLocal <- getEncodeRouteLocal