diff options
author | Joey Hess <joey@kitenet.net> | 2012-09-15 20:46:38 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-09-15 20:46:38 -0400 |
commit | ba0334116cd8811d49b96cd39dd83e565e0bedb7 (patch) | |
tree | 03b269a40b0b629a916f30665ccd1cf969f36589 /CmdLine.hs | |
parent | 9a9b4b840e81198b85db72920ac88748ae3e6b6d (diff) |
more descriptive name for oneshot
Diffstat (limited to 'CmdLine.hs')
-rw-r--r-- | CmdLine.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/CmdLine.hs b/CmdLine.hs index edbe5e107..b3aeb57aa 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -43,7 +43,7 @@ dispatch fuzzyok allargs allcmds commonoptions fields header getgitrepo = do forM_ fields $ \(f, v) -> Annex.setField f v sequence_ flags prepCommand cmd params - tryRun state' cmd $ [startup] ++ actions ++ [shutdown $ cmdoneshot cmd] + tryRun state' cmd $ [startup] ++ actions ++ [shutdown $ cmdnocommit cmd] where err msg = msg ++ "\n\n" ++ usage header allcmds commonoptions cmd = Prelude.head cmds @@ -112,8 +112,8 @@ startup = return True {- Cleanup actions. -} shutdown :: Bool -> Annex Bool -shutdown oneshot = do - saveState oneshot +shutdown nocommit = do + saveState nocommit sequence_ =<< M.elems <$> Annex.getState Annex.cleanup liftIO Git.Command.reap -- zombies from long-running git processes sshCleanup -- ssh connection caching |