mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions 1

read up to and including maxPointerSz

Browse source 
For consistency with everything else.

Sponsored-by: Dartmouth College's Datalad project
This commit is contained in:
Joey Hess 2022-02-23 12:54:40 -04:00
parent 5b373a9dd2
commit 649464619e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Database/Keys.hs
View file

@ -447,7 +447,7 @@ reconcileStaged qh = unlessM (Git.Config.isBare <$> gitRepo) $ do
where where
procthread mdreader catfeeder = mdreader >>= \case procthread mdreader catfeeder = mdreader >>= \case
Just (ka, Just (sha, size, _type)) Just (ka, Just (sha, size, _type))
| size < fromIntegral maxPointerSz -> do | size <= fromIntegral maxPointerSz -> do
() <- catfeeder (ka, sha) () <- catfeeder (ka, sha)
procthread mdreader catfeeder procthread mdreader catfeeder
Just _ -> procthread mdreader catfeeder Just _ -> procthread mdreader catfeeder