This commit is contained in:
Joey Hess 2011-05-22 19:07:20 -04:00
parent 5b941980aa
commit 32a946af7d

View file

@ -40,4 +40,5 @@ commonOptions =
setfast v = Annex.changeState $ \s -> s { Annex.fast = v } setfast v = Annex.changeState $ \s -> s { Annex.fast = v }
setquiet v = Annex.changeState $ \s -> s { Annex.quiet = v } setquiet v = Annex.changeState $ \s -> s { Annex.quiet = v }
setforcebackend v = Annex.changeState $ \s -> s { Annex.forcebackend = Just v } setforcebackend v = Annex.changeState $ \s -> s { Annex.forcebackend = Just v }
setdebug = liftIO $ updateGlobalLogger "" $ setLevel DEBUG setdebug = liftIO $ updateGlobalLogger rootLoggerName $
setLevel DEBUG