mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

convert all log prorities, not just debug

Browse source 
In particular, error should go to stderr
This commit is contained in:
Joey Hess 2015-04-21 15:59:30 -04:00
parent 3b3aaf0d56
commit ae9bbf25a0
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Remote/S3.hs
View file

@ -521,5 +521,10 @@ mkLocationConstraint "US" = S3.locationUsClassic
mkLocationConstraint r = r
debugMapper :: AWS.Logger
debugMapper AWS.Debug t = debugM "S3" (T.unpack t)
debugMapper _ _ = noop
debugMapper level t = forward "S3" (T.unpack t)
where
forward = case level of
AWS.Debug -> debugM
AWS.Info -> infoM
AWS.Warning -> warningM
AWS.Error -> errorM