Merge pull request #3347 from input-output-hk/fix/playground-error

Quick fix for plutus-playground-server
IntersectMBO · Jun 11, 2021 · afc08e1 · afc08e1
2 parents 47b1c48 + 5b6ae8a
commit afc08e1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/marlowe-playground-server/app/Webserver.hs b/marlowe-playground-server/app/Webserver.hs
@@ -19,5 +19,5 @@ run :: Int -> Maybe FilePath ->  IO ()
 run port secrets = do
   appConfig <- initializeServerContext secrets
   handlers <- Server.mkHandlers appConfig
-  let server = handlers :<|> Webghc.server :<|> MS.handlers
+  let server = handlers :<|> Webghc.server 80 :<|> MS.handlers
   Warp.run port (serve (Proxy @API) server)
diff --git a/plutus-playground-server/app/Webserver.hs b/plutus-playground-server/app/Webserver.hs
@@ -18,5 +18,5 @@ run :: Int -> Maybe FilePath -> IO ()
 run port secrets = do
   appConfig <- initializeServerContext secrets
   handlers <- Server.mkHandlers appConfig
-  let server = handlers :<|> Webghc.server
+  let server = handlers :<|> Webghc.server 80
   Warp.run port (serve (Proxy @API) server)