From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 19 Oct 2020 18:48:21 +0000 (-0400)
Subject: fix build warning
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~106^2~78
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=72644d919ac1a1ab5a930afde4550542f646f55a;p=git-annex.git

fix build warning
---

diff --git a/CmdLine/Seek.hs b/CmdLine/Seek.hs
index 34a9d20465..ed716008c7 100644
--- a/CmdLine/Seek.hs
+++ b/CmdLine/Seek.hs
@@ -428,9 +428,9 @@ seekHelper c ww a (WorkTreeItems l) = do
 	mk Nothing f = (SeekInput [fromRawFilePath (c f)], f)
 
 	go v os fs g = do
-		(l, cleanup) <- a os fs g
+		(ls, cleanup) <- a os fs g
 		liftIO $ modifyIORef' v (cleanup:)
-		return l
+		return ls
 
 	cleanupall v = do
 		cleanups <- readIORef v