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

some comments

Browse source
This commit is contained in:
nek0 2023-12-10 12:57:36 +01:00
parent 4d0a6cbb00
commit 71451df387
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src-client/Main.hs
View file

@ -17,11 +17,13 @@ main = do
(Options socketLocation) <- execParser opts (Options socketLocation) <- execParser opts
putStrLn $ "connecting to Socket " <> socketLocation putStrLn $ "connecting to Socket " <> socketLocation
handle <- connectSocket socketLocation handle <- connectSocket socketLocation
-- mock communication code
hPutStrLn handle "meow!" hPutStrLn handle "meow!"
hFlush handle hFlush handle
threadDelay $ 5 * 10 ^ 6 threadDelay $ 5 * 10 ^ 6
hPutStrLn handle "Goodbye!" hPutStrLn handle "Goodbye!"
hFlush handle hFlush handle
-- end mock
where where
opts = info (options <**> helper) opts = info (options <**> helper)
( fullDesc ( fullDesc