summaryrefslogtreecommitdiff
path: root/Command.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-11-30 15:18:40 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-11-30 15:18:40 -0400
commit440f3b1068a1d0a49dff1307124c4f7f0bcd6f5d (patch)
treedcc4b0c54f52b89aa95956c0e32cf6e781f17057 /Command.hs
parentf04b34c4584e18f4c722700eda5e80eb0345f035 (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.hs')
-rw-r--r--Command.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command.hs b/Command.hs
index 2c157304f..b6484749e 100644
--- a/Command.hs
+++ b/Command.hs
@@ -55,7 +55,7 @@ noMessages c = c { cmdnomessages = True }
{- Adds a fallback action to a command, that will be run if it's used
- outside a git repository. -}
-noRepo :: IO () -> Command -> Command
+noRepo :: (CmdParams -> IO ()) -> Command -> Command
noRepo a c = c { cmdnorepo = Just a }
{- Adds options to a command. -}