better timing

src-client/Main.hs

@@ -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"
         )