Fixed parser issue

digitallyinduced · Feb 5, 2022 · 2c5afc0 · 2c5afc0
1 parent 54af556
commit 2c5afc0
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/IHP/WebSocket.hs b/IHP/WebSocket.hs
@@ -54,12 +54,12 @@ startWSApp connection = do
     let ?connection = connection
 
     let runWithPongChan pongChan = do
-        let connectionOnPong = writeChan pongChan ()
-        let ?connection = connection
-                { WebSocket.connectionOptions = (get #connectionOptions connection) { WebSocket.connectionOnPong } 
-                }
-            in
-                run @state
+            let connectionOnPong = writeChan pongChan ()
+            let ?connection = connection
+                    { WebSocket.connectionOptions = (get #connectionOptions connection) { WebSocket.connectionOnPong } 
+                    }
+                in
+                    run @state
 
     result <- Exception.try ((withPinger connection runWithPongChan) `Exception.finally` onClose @state)
     case result of