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-10-19 14:48:21 -04:00
parent c337b58caf
commit 72644d919a
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
CmdLine/Seek.hs
View file

@ -428,9 +428,9 @@ seekHelper c ww a (WorkTreeItems l) = do
mk Nothing f = (SeekInput [fromRawFilePath (c f)], f) mk Nothing f = (SeekInput [fromRawFilePath (c f)], f)
go v os fs g = do go v os fs g = do
(l, cleanup) <- a os fs g (ls, cleanup) <- a os fs g
liftIO $ modifyIORef' v (cleanup:) liftIO $ modifyIORef' v (cleanup:)
return l return ls
cleanupall v = do cleanupall v = do
cleanups <- readIORef v cleanups <- readIORef v