From 72644d919ac1a1ab5a930afde4550542f646f55a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 19 Oct 2020 14:48:21 -0400 Subject: [PATCH] fix build warning --- CmdLine/Seek.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.30.2