diff options
Diffstat (limited to 'Remote')
-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 |