diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-21 15:59:30 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-21 15:59:30 -0400 |
| commit | e1a773d68890a3ae5f5441e0ff916f229f768d08 (patch) | |
| tree | 49b50e3bce9a7322e556ee449f7b7a74f484dcb7 /Remote/S3.hs | |
| parent | 4da106cf1703c763f6cbe3d2843e5e10f4160405 (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.hs | 9 |
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 |