refactor

jaspervdj · Mar 10, 2023 · c619e36 · c619e36
1 parent db8e3a7
commit c619e36
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Network/WebSockets/Server.hs b/src/Network/WebSockets/Server.hs
@@ -111,7 +111,7 @@ runServerWithOptions opts app = S.withSocketsDo $
     bracket
     (makeListenSocket (serverHost opts) (serverPort opts))
     S.close $ \sock -> do
-        heartbeat <- newEmptyMVar :: IO (MVar ())
+        heartbeat <- newEmptyMVar
 
         let -- Update the connection options to perform a heartbeat whenever a
             -- pong is received.
@@ -120,7 +120,7 @@ runServerWithOptions opts app = S.withSocketsDo $
                 }
 
             -- Kills the thread if pong was not received within the grace period.
-            reaper grace appAsync = timeout (grace * 10^(6 :: Int)) (takeMVar heartbeat) >>= \case
+            reaper grace appAsync = timeout (grace * 1_000_000) (takeMVar heartbeat) >>= \case
                 Nothing -> appAsync `Async.cancelWith` PongTimeout
                 Just _ -> reaper grace appAsync