improve error message

This commit is contained in:
Joey Hess 2019-03-22 12:23:59 -04:00
parent 39d55a8541
commit 2a99d7ffc0
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 2 additions and 2 deletions

View file

@ -590,7 +590,7 @@ s3Configuration c = cfg
cfgproto = case M.lookup "protocol" c of
Just "https" -> Just AWS.HTTPS
Just "http" -> Just AWS.HTTP
Just _ -> giveup $ "bad S3 protocol value"
Just s -> giveup $ "bad S3 protocol value: " ++ s
Nothing -> Nothing
proto = case cfgproto of
Just v -> v