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

fix build warning

Browse source
This commit is contained in:
Joey Hess 2020-09-25 11:07:41 -04:00
parent ca454c47f2
commit 5117ae8aec
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Utility/Path.hs
View file

@ -228,7 +228,7 @@ segmentPaths' f c (i:is) new =
(found, rest) = if length is < 100
then partition ini new
else break (not . ini) new
ini f = i' `dirContains` fromRawFilePath (c f)
ini p = i' `dirContains` fromRawFilePath (c p)
i' = fromRawFilePath i
{- This assumes that it's cheaper to call segmentPaths on the result,