better timing

This commit is contained in:
nek0 2023-12-20 20:17:18 +01:00
parent a202ec17b3
commit 4780f49073

View file

@ -1,4 +1,3 @@
{-# LANGUAGE LambdaCase #-}
module Main where module Main where
import Control.Concurrent (threadDelay) import Control.Concurrent (threadDelay)
@ -77,12 +76,12 @@ main = do
initRead initRead
initState initState
partingMessage clientId sock partingMessage clientId sock
threadDelay $ 1 * 10 ^ 6 threadDelay 100
close sock close sock
where where
opts = info (options <**> helper) opts = info (options <**> helper)
( fullDesc ( fullDesc
<> progDesc "Run the \"wizard-wipeout\" Server." <> progDesc "Run the \"wizard-wipeout\" Client."
<> header "wizard-wipeout - Last Mage standing" <> header "wizard-wipeout - Last Mage standing"
) )