Default endpoint override to port 443 if https and no port is specified

tmspzz · May 23, 2018 · 4d92c7d · 4d92c7d
1 parent 2d68509
commit 4d92c7d
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/Rome.cabal b/Rome.cabal
@@ -1,5 +1,5 @@
 name:                Rome
-version:             0.15.0.42
+version:             0.15.0.43
 synopsis:            An S3 cache for Carthage
 description:         Please see README.md
 homepage:            https://github.com/blender/Rome

diff --git a/app/Main.hs b/app/Main.hs
@@ -10,7 +10,7 @@ import           System.Exit
 
 
 romeVersion :: RomeVersion
-romeVersion = (0, 15, 0, 42)
+romeVersion = (0, 15, 0, 43)
 
 
 

diff --git a/src/Lib.hs b/src/Lib.hs
@@ -54,7 +54,7 @@ s3EndpointOverride :: URL -> AWS.Service
 s3EndpointOverride (URL (Absolute h) _ _) =
   let isSecure = secure h
       host' = host h
-      port' = port h
+      port' = port h <|> if isSecure then Just 443 else Nothing
    in
     AWS.setEndpoint isSecure (BS.pack host') (fromInteger $ fromMaybe 9000 port') S3.s3
 s3EndpointOverride _ = S3.s3
Original file line number	Diff line number	Diff line change
Expand Up		@@ -10,7 +10,7 @@ import System.Exit


		romeVersion :: RomeVersion
		romeVersion = (0, 15, 0, 42)
		romeVersion = (0, 15, 0, 43)



Expand Down