From 649464619e2805537edd7ea28275635eb437f080 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 23 Feb 2022 12:54:40 -0400 Subject: [PATCH] read up to and including maxPointerSz For consistency with everything else. Sponsored-by: Dartmouth College's Datalad project --- Database/Keys.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Database/Keys.hs b/Database/Keys.hs index 90ce7d1a45..4bfa633d35 100644 --- a/Database/Keys.hs +++ b/Database/Keys.hs @@ -447,7 +447,7 @@ reconcileStaged qh = unlessM (Git.Config.isBare <$> gitRepo) $ do where procthread mdreader catfeeder = mdreader >>= \case Just (ka, Just (sha, size, _type)) - | size < fromIntegral maxPointerSz -> do + | size <= fromIntegral maxPointerSz -> do () <- catfeeder (ka, sha) procthread mdreader catfeeder Just _ -> procthread mdreader catfeeder -- 2.30.2