}
return res
--- logClientMsg :: (MonadIO m, HasReader SessionContext m)
--- => FromClientMessage -> m ()
--- logClientMsg = logMsg True
-
--- logServerMsg :: (MonadIO m, HasReader SessionContext m)
--- => FromServerMessage -> m ()
--- logServerMsg = logMsg False
-
data LogMsgType = LogServer | LogClient
deriving Eq
| t == LogServer = Magenta
| otherwise = Cyan
-
-showPretty :: ToJSON a => a -> String
showPretty = B.unpack . encodePretty