Explicitly bind 0.0.0.0 so tutorial servers work on MacOS

well-typed · Dec 27, 2024 · 868c337 · 868c337
1 parent 08a774c
commit 868c337
Show file tree

Hide file tree

Showing 6 changed files with 6 additions and 6 deletions.
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
         }