diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-11-30 15:18:40 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-30 15:18:40 -0400 |
| commit | 440f3b1068a1d0a49dff1307124c4f7f0bcd6f5d (patch) | |
| tree | dcc4b0c54f52b89aa95956c0e32cf6e781f17057 /Command/Assistant.hs | |
| parent | f04b34c4584e18f4c722700eda5e80eb0345f035 (diff) | |
make "git annex help options" work outside a git repo
Option parsing for commands that run outside git repos is still screwy,
as there is no Annex monad and so the flags cannot be passed in. But,
any remaining parameters can be, which is enough for this fix.
Diffstat (limited to 'Command/Assistant.hs')
| -rw-r--r-- | Command/Assistant.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Assistant.hs b/Command/Assistant.hs index 521a88571..cef4392dc 100644 --- a/Command/Assistant.hs +++ b/Command/Assistant.hs @@ -55,8 +55,8 @@ start foreground stopdaemon autostart startdelay {- Run outside a git repository. Check to see if any parameter is - --autostart and enter autostart mode. -} -checkAutoStart :: IO () -checkAutoStart = ifM (elem "--autostart" <$> getArgs) +checkAutoStart :: CmdParams -> IO () +checkAutoStart _ = ifM (elem "--autostart" <$> getArgs) ( autoStart Nothing , error "Not in a git repository." ) |