fix build warning

diff --git a/CmdLine/Seek.hs b/CmdLine/Seek.hs
index 34a9d20465cc1041377302a3ecd023531409a289..ed716008c779ea8eecb46e7b9ebab1a5d387cd82 100644 (file)
--- 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