From 4b841bf88c0f7f8c54d2ff3031b4fdcef5304513 Mon Sep 17 00:00:00 2001
From: Dennis Frieberg <nerfingen@yahoo.de>
Date: Tue, 22 Sep 2020 20:28:46 +0200
Subject: [PATCH] test client works

---
 app/Main.hs                | 33 +++++++++++++++++++++++----------
 package.yaml               |  2 ++
 tickLeisteTestClient.cabal |  8 ++++++--
 3 files changed, 31 insertions(+), 12 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 28ced1e..3b53ea6 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,35 +1,48 @@
 module Main where
 
+import Control.Concurrent (forkIO)
+import Data.Aeson
 import Data.Aeson.TickLeiste
+import qualified Data.ByteString as B
+import Data.Maybe (maybe)
 import Data.TickLeiste
 import Network.WebSockets
 import System.Environment
 import System.Exit (die)
 import Text.Read
-import Data.Maybe (maybe)
 
 main :: IO ()
 main = do
   args <- getArgs
   if length args /= 3
-    -- here should be more checks, but as this client is only ment for quick
+    then -- here should be more checks, but as this client is only ment for quick
     -- tests and not part of the finished project I don't care
-    then die "arguments must be 'host' 'port' 'path'"
+      die "arguments must be 'host' 'port' 'path'"
     else do
       runClient (args !! 0) (read $ args !! 1) (args !! 2) testClient
 
+testClient :: ClientApp ()
+testClient conn = do
+  forkIO $ testClientReciveLoop conn
+  testClientSendLoop conn
+
 -- this thing is realy cheap: we read strings!!
 -- What we should do: read ByteString and go from there
 -- and do checks if our input is clean, we do none of that.
-testClient :: ClientApp ()
-testClient conn = do
-  putStr "> "
+testClientSendLoop :: ClientApp ()
+testClientSendLoop conn = do
   userInput <- getLine
   maybe
     (putStrLn "Input parse failed, maybe a Typo?")
-    (\request -> do
-      undefined)
+    (sendTextData conn . encode)
     (readMaybe userInput :: Maybe JSONRequest)
+  testClientSendLoop conn
 
-
-
+testClientReciveLoop :: ClientApp ()
+testClientReciveLoop conn = do
+  msg <- (receiveData conn :: IO B.ByteString)
+  maybe
+    (putStrLn "Unable to parse Server JSON: " >> print msg)
+    (print)
+    (decodeStrict msg :: Maybe JSONEvent)
+  testClientReciveLoop conn
diff --git a/package.yaml b/package.yaml
index e2b6b2d..d16c747 100644
--- a/package.yaml
+++ b/package.yaml
@@ -24,6 +24,8 @@ dependencies:
 - tickLeiste
 - tickLeiste-aeson
 - websockets
+- aeson
+- bytestring
 
 executables:
   tickLeisteTestClient-exe:
diff --git a/tickLeisteTestClient.cabal b/tickLeisteTestClient.cabal
index c9b0e3b..06409b3 100644
--- a/tickLeisteTestClient.cabal
+++ b/tickLeisteTestClient.cabal
@@ -31,7 +31,9 @@ executable tickLeisteTestClient-exe
       app
   ghc-options: -threaded -rtsopts -with-rtsopts=-N
   build-depends:
-      base >=4.7 && <5
+      aeson
+    , base >=4.7 && <5
+    , bytestring
     , tickLeiste
     , tickLeiste-aeson
     , websockets
@@ -46,7 +48,9 @@ test-suite tickLeisteTestClient-test
       test
   ghc-options: -threaded -rtsopts -with-rtsopts=-N
   build-depends:
-      base >=4.7 && <5
+      aeson
+    , base >=4.7 && <5
+    , bytestring
     , tickLeiste
     , tickLeiste-aeson
     , tickLeisteTestClient