diff --git a/src-client/Main.hs b/src-client/Main.hs index 09a815c..38d32e1 100644 --- a/src-client/Main.hs +++ b/src-client/Main.hs @@ -17,11 +17,13 @@ main = do (Options socketLocation) <- execParser opts putStrLn $ "connecting to Socket " <> socketLocation handle <- connectSocket socketLocation + -- mock communication code hPutStrLn handle "meow!" hFlush handle threadDelay $ 5 * 10 ^ 6 hPutStrLn handle "Goodbye!" hFlush handle + -- end mock where opts = info (options <**> helper) ( fullDesc