diff options
Diffstat (limited to 'CmdLine.hs')
-rw-r--r-- | CmdLine.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/CmdLine.hs b/CmdLine.hs index fbc1eaeca..05f7bfe2e 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -12,6 +12,7 @@ module CmdLine ( ) where import qualified Control.Exception as E +import qualified Data.Map as M import Control.Exception (throw) import System.Console.GetOpt @@ -95,6 +96,7 @@ startup = return True shutdown :: Bool -> Annex Bool shutdown oneshot = do saveState oneshot + sequence_ =<< M.elems <$> Annex.getState Annex.cleanup liftIO Git.Command.reap -- zombies from long-running git processes sshCleanup -- ssh connection caching return True |