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

fix incomplete pattern match warning

Browse source 
There was not really a bug here, because the 2 lists are always the same
length, but the compiler does not know that.
This commit is contained in:
Joey Hess 2021-03-30 12:59:53 -04:00
parent 24c576bfa7
commit 5712a7ef93
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Git/Tree.hs
View file

@ -330,6 +330,7 @@ graftTree' subtree graftloc basetree repo hdl = go basetree subdirs graftdirs
return (newshas ++ rest) return (newshas ++ rest)
mkTree hdl t' mkTree hdl t'
go _ _ [] = return subtree go _ _ [] = return subtree
go _ [] _ = return subtree
graftin t = recordSubTree hdl $ graftin' t graftin t = recordSubTree hdl $ graftin' t
graftin' [] = RecordedSubTree graftloc subtree [] graftin' [] = RecordedSubTree graftloc subtree []