some comments

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