improve error message
This commit is contained in:
parent
39d55a8541
commit
2a99d7ffc0
2 changed files with 2 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue