diff options
| author | LLLL Colonq <llll@colonq> | 2025-04-15 22:10:21 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-04-15 22:10:21 -0400 |
| commit | 510b8cb80519ffc128939aeab68cde7f0c51442c (patch) | |
| tree | a9456e7caaae7ccf64919be5d0c539f4ca044f38 /fig-web/src/Fig/Web/Utils.hs | |
| parent | 845f9f93b9ad94ecf7c48541b850fc9d7e72dd71 (diff) | |
works!!
Diffstat (limited to 'fig-web/src/Fig/Web/Utils.hs')
| -rw-r--r-- | fig-web/src/Fig/Web/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 "" |