nek0/wizard-wipeout
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

better timing

Browse source
This commit is contained in:
nek0 2023-12-20 20:17:18 +01:00
parent a202ec17b3
commit 4780f49073
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src-client/Main.hs
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"
) )