From cd699ff50b8434b52e2f51d06414e8431b407482 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 4 Oct 2012 19:56:32 -0400 Subject: fix last zombies in the assistant Made Git.LsFiles return cleanup actions, and everything waits on processes now, except of course for Seek. --- Upgrade/V1.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Upgrade') diff --git a/Upgrade/V1.hs b/Upgrade/V1.hs index 36d06dc48..8f7de3950 100644 --- a/Upgrade/V1.hs +++ b/Upgrade/V1.hs @@ -83,8 +83,9 @@ updateSymlinks :: Annex () updateSymlinks = do showAction "updating symlinks" top <- fromRepo Git.repoPath - files <- inRepo $ LsFiles.inRepo [top] + (files, cleanup) <- inRepo $ LsFiles.inRepo [top] forM_ files fixlink + void $ liftIO cleanup where fixlink f = do r <- lookupFile1 f -- cgit v1.2.3