compiles and works again.

2022-07-19 23:07:01 +02:00
parent 9e9fa9e512
commit 980c309281
9 changed files with 58 additions and 45 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -77,8 +77,8 @@ main = do
      -- Initialize ImGui's OpenGL backend
      _ <- managed_ $ bracket_ openGL3Init openGL3Shutdown

-      twsConnectionRefsHost <- liftIO $ atomically $ newTVar $ settings ^. twsConnection . host . to T.unpack
-      twsConnectionRefsPort <- liftIO $ atomically $ newTVar $ settings ^. twsConnection . port . to T.unpack
+      twsConnectionRefsHost <- liftIO $ atomically $ newTVar $ settings ^. twsConnection . host
+      twsConnectionRefsPort <- liftIO $ atomically $ newTVar $ settings ^. twsConnection . port
      twsConnectionStatus   <- liftIO $ atomically $ newTVar $ TWSDisconnected
      twsConnectionSend     <- liftIO $ atomically $ newTQueue
      twsConnectionRecieve  <- liftIO $ atomically $ newTQueue