From 5117ae8aec96670bf17da7f834dc71e13d068cb9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 25 Sep 2020 11:07:41 -0400 Subject: [PATCH] fix build warning --- Utility/Path.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/Path.hs b/Utility/Path.hs index 63e8f03cb9..6f38b07c13 100644 --- a/Utility/Path.hs +++ b/Utility/Path.hs @@ -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, -- 2.30.2