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 ""