From 620118676391dbd0b296db4d4bf28574c18b9a3c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 6 Jul 2015 14:21:43 -0400 Subject: refactor ls-tree params All in one place to avoid bugs like 2ea34c47dd9819111f3cbaa2ce848581d286c05c --- Git/Repair.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Git/Repair.hs') diff --git a/Git/Repair.hs b/Git/Repair.hs index 46cf22123..b441f1337 100644 --- a/Git/Repair.hs +++ b/Git/Repair.hs @@ -341,7 +341,7 @@ verifyTree :: MissingObjects -> Sha -> Repo -> IO Bool verifyTree missing treesha r | S.member treesha missing = return False | otherwise = do - (ls, cleanup) <- pipeNullSplit (LsTree.lsTreeParams treesha) r + (ls, cleanup) <- pipeNullSplit (LsTree.lsTreeParams treesha []) r let objshas = map (extractSha . LsTree.sha . LsTree.parseLsTree) ls if any isNothing objshas || any (`S.member` missing) (catMaybes objshas) then do -- cgit v1.2.3