diff --git a/grapesy/test-grapesy/Test/Regression/Issue238.hs b/grapesy/test-grapesy/Test/Regression/Issue238.hs index 7f5eecc9..b4358a57 100644 --- 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 index c6995868..b549740a 100644 --- 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 index 6d3a3bb9..ab72e9d8 100644 --- 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 index 71f0b1e1..5aa4ac4c 100644 --- 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 index 5eca1d4c..433647d2 100644 --- 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 index b63deab6..79b7fff9 100644 --- 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 index aef84392..87e50aa8 100644 --- 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 }