summaryrefslogtreecommitdiff
path: root/Remote/S3.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-04-21 15:59:30 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-04-21 15:59:30 -0400
commite1a773d68890a3ae5f5441e0ff916f229f768d08 (patch)
tree49b50e3bce9a7322e556ee449f7b7a74f484dcb7 /Remote/S3.hs
parent4da106cf1703c763f6cbe3d2843e5e10f4160405 (diff)
convert all log prorities, not just debug
In particular, error should go to stderr
Diffstat (limited to 'Remote/S3.hs')
-rw-r--r--Remote/S3.hs9
1 files changed, 7 insertions, 2 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs
index 06aa79d65..c9de36745 100644
--- a/Remote/S3.hs
+++ b/Remote/S3.hs
@@ -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