diff options
| -rw-r--r-- | fig-web/src/Fig/Web.hs | 2 | ||||
| -rw-r--r-- | fig-web/src/Fig/Web/Utils.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/fig-web/src/Fig/Web.hs b/fig-web/src/Fig/Web.hs index dad3a9c..f657094 100644 --- a/fig-web/src/Fig/Web.hs +++ b/fig-web/src/Fig/Web.hs @@ -57,7 +57,7 @@ newGlobals :: IO Globals newGlobals = do currentlyLive <- MVar.newMVar Set.empty pure Globals {..} - + server :: Config -> (Text, Text) -> IO () server cfg busAddr = do log $ "Web server running on port " <> tshow cfg.port diff --git a/fig-web/src/Fig/Web/Utils.hs b/fig-web/src/Fig/Web/Utils.hs index 004ba5a..9076bd0 100644 --- a/fig-web/src/Fig/Web/Utils.hs +++ b/fig-web/src/Fig/Web/Utils.hs @@ -57,5 +57,5 @@ websocket :: ByteString -> (WS.Connection -> IO ()) -> Sc.ScottyM () websocket pat h = Sc.middleware $ Wai.WS.websocketsOr WS.defaultConnectionOptions handler where handler pending = if WS.requestPath (WS.pendingRequest pending) == pat - then WS.acceptRequest pending >>= h + then WS.acceptRequest pending >>= \c -> WS.withPingThread c 30 (pure ()) $ h c else WS.rejectRequest pending "" |