summaryrefslogtreecommitdiff
path: root/Command/Config.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/Config.hs')
-rw-r--r--Command/Config.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/Command/Config.hs b/Command/Config.hs
index 690c8d288..c9b6a7b0b 100644
--- a/Command/Config.hs
+++ b/Command/Config.hs
@@ -11,7 +11,8 @@ import Command
import Logs.Config
cmd :: Command
-cmd = command "config" SectionSetup "configuration stored in git-annex branch"
+cmd = noMessages $ command "config" SectionSetup
+ "configuration stored in git-annex branch"
paramNothing (seek <$$> optParser)
data Action
@@ -47,11 +48,13 @@ optParser _ = setconfig <|> getconfig <|> unsetconfig
seek :: Action -> CommandSeek
seek (SetConfig name val) = commandAction $ do
+ allowMessages
showStart name val
next $ next $ do
setGlobalConfig name val
return True
seek (UnsetConfig name) = commandAction $ do
+ allowMessages
showStart name "unset"
next $ next $ do
unsetGlobalConfig name