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
import Control.Concurrent (threadDelay)
@ -77,12 +76,12 @@ main = do
initRead
initState
partingMessage clientId sock
threadDelay $ 1 * 10 ^ 6
threadDelay 100
close sock
where
opts = info (options <**> helper)
( fullDesc
<> progDesc "Run the \"wizard-wipeout\" Server."
<> progDesc "Run the \"wizard-wipeout\" Client."
<> header "wizard-wipeout - Last Mage standing"
)