From 5712a7ef938c2cdb0029b60d316d00c9c2c35a5a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 30 Mar 2021 12:59:53 -0400 Subject: [PATCH] fix incomplete pattern match warning There was not really a bug here, because the 2 lists are always the same length, but the compiler does not know that. --- Git/Tree.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Git/Tree.hs b/Git/Tree.hs index 6a43cff0ec..b401fa7f55 100644 --- a/Git/Tree.hs +++ b/Git/Tree.hs @@ -330,6 +330,7 @@ graftTree' subtree graftloc basetree repo hdl = go basetree subdirs graftdirs return (newshas ++ rest) mkTree hdl t' go _ _ [] = return subtree + go _ [] _ = return subtree graftin t = recordSubTree hdl $ graftin' t graftin' [] = RecordedSubTree graftloc subtree []