From 143de2476936a287acf7bb136e6610e7152bd300 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 6 Feb 2023 16:30:50 -0400
Subject: [PATCH] fix build warning

---
 Remote/S3.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Remote/S3.hs b/Remote/S3.hs
index 3ea9ed813d..97219dd509 100644
--- a/Remote/S3.hs
+++ b/Remote/S3.hs
@@ -919,7 +919,6 @@ s3Configuration c = cfg
 	}
   where
 	h = fromJust $ getRemoteConfigValue hostField c
-	r = encodeBS <$> getRemoteConfigValue regionField c
 	datacenter = fromJust $ getRemoteConfigValue datacenterField c
 	-- When the default S3 host is configured, connect directly to
 	-- the S3 endpoint for the configured datacenter.
@@ -961,6 +960,8 @@ s3Configuration c = cfg
 		_ -> (S3.s3 proto endpoint False)
 #if MIN_VERSION_aws(0,24,0)
 				{ S3.s3Region = r }
+	
+	r = encodeBS <$> getRemoteConfigValue regionField c
 #endif
 
 data S3Info = S3Info