Merge pull request #266 from TravisWhitaker/grapesy-tests-fix-macos

Fix tests on MacOS
well-typed · Jan 7, 2025 · da3e531 · da3e531
2 parents 43f48bd + 868c337
commit da3e531
Show file tree

Hide file tree

Showing 7 changed files with 7 additions and 7 deletions.
diff --git a/grapesy/test-grapesy/Test/Regression/Issue238.hs b/grapesy/test-grapesy/Test/Regression/Issue238.hs
@@ -189,7 +189,7 @@ testWith handlers client = do
   where
     serverConfig :: Server.ServerConfig
     serverConfig = Server.ServerConfig {
-          serverInsecure = Just $ Server.InsecureConfig Nothing 0
+          serverInsecure = Just $ Server.InsecureConfig (Just "127.0.0.1") 0
         , serverSecure   = Nothing
         }
 

diff --git a/tutorials/basics/app/Server.hs b/tutorials/basics/app/Server.hs
@@ -76,6 +76,6 @@ main = do
   where
     config :: ServerConfig
     config = ServerConfig {
-          serverInsecure = Just (InsecureConfig Nothing defaultInsecurePort)
+          serverInsecure = Just (InsecureConfig (Just "0.0.0.0") defaultInsecurePort)
         , serverSecure   = Nothing
         }
diff --git a/tutorials/lowlevel/app/Server.hs b/tutorials/lowlevel/app/Server.hs
@@ -85,6 +85,6 @@ main = do
   where
     config :: ServerConfig
     config = ServerConfig {
-          serverInsecure = Just (InsecureConfig Nothing defaultInsecurePort)
+          serverInsecure = Just (InsecureConfig (Just "0.0.0.0") defaultInsecurePort)
         , serverSecure   = Nothing
         }
diff --git a/tutorials/metadata/app/Server.hs b/tutorials/metadata/app/Server.hs
@@ -68,6 +68,6 @@ main =
   where
     config :: ServerConfig
     config = ServerConfig {
-          serverInsecure = Just (InsecureConfig Nothing defaultInsecurePort)
+          serverInsecure = Just (InsecureConfig (Just "0.0.0.0") defaultInsecurePort)
         , serverSecure   = Nothing
         }
diff --git a/tutorials/monadstack/app/Server.hs b/tutorials/monadstack/app/Server.hs
@@ -95,6 +95,6 @@ main = do
   where
     config :: ServerConfig
     config = ServerConfig {
-          serverInsecure = Just (InsecureConfig Nothing defaultInsecurePort)
+          serverInsecure = Just (InsecureConfig (Just "0.0.0.0") defaultInsecurePort)
         , serverSecure   = Nothing
         }
diff --git a/tutorials/quickstart/app/Server.hs b/tutorials/quickstart/app/Server.hs
@@ -32,6 +32,6 @@ main =
   where
     config :: ServerConfig
     config = ServerConfig {
-          serverInsecure = Just (InsecureConfig Nothing defaultInsecurePort)
+          serverInsecure = Just (InsecureConfig (Just "0.0.0.0") defaultInsecurePort)
         , serverSecure   = Nothing
         }
diff --git a/tutorials/trailers-only/app/Server.hs b/tutorials/trailers-only/app/Server.hs
@@ -77,6 +77,6 @@ main = do
   where
     config :: ServerConfig
     config = ServerConfig {
-          serverInsecure = Just (InsecureConfig Nothing defaultInsecurePort)
+          serverInsecure = Just (InsecureConfig (Just "0.0.0.0") defaultInsecurePort)
         , serverSecure   = Nothing
         }