sendClientMessage :: Config -> WS.Connection -> ClientMessage -> IO ()
sendClientMessage config conn msg = do
    when (debug config) $
        putStrLn $ "→ " ++ show msg
    WS.sendTextData conn (T.pack (show msg))


sendClientMessage :: Config -> WS.Connection -> ClientMessage -> IO ()
sendClientMessage config conn msg = do
    when (debug config) $
        putStrLn $ "→ " ++ show msg
    WS.sendTextData conn (T.pack (show msg))
sendClientMessage config conn msg = do
    when (debug config) $
        putStrLn $ "→ " ++ show msg
    WS.sendTextData conn (T.pack (show msg))