Garmelon/forest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add very basic logging to client

Browse source
This commit is contained in:
Joscha 2020-02-11 11:38:28 +00:00
parent 92f4804b40
commit 29e19ec1b2
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
client/Main.hs
View file

@ -213,11 +213,16 @@ runCorrectClient opts app
main :: IO () main :: IO ()
main = do main = do
opts <- execParser clientOptionsParserInfo opts <- execParser clientOptionsParserInfo
putStrLn "Connecting to server"
runCorrectClient opts $ \conn -> do runCorrectClient opts $ \conn -> do
putStrLn "Performing initialization ritual"
node <- performInitialContact conn node <- performInitialContact conn
chan <- newBChan 100 chan <- newBChan 100
let appState = newClientState chan node conn let appState = newClientState chan node conn
putStrLn "Starting WS thread"
withThread (receiveUpdates chan node conn) $ do withThread (receiveUpdates chan node conn) $ do
putStrLn "Starting UI"
let vtyBuilder = Vty.mkVty Vty.defaultConfig let vtyBuilder = Vty.mkVty Vty.defaultConfig
initialVty <- vtyBuilder initialVty <- vtyBuilder
void $ customMain initialVty vtyBuilder (Just chan) clientApp appState void $ customMain initialVty vtyBuilder (Just chan) clientApp appState
putStrLn "Connection closed"