process :: (IConnection c, MonadIO m) => SerializationT (ReaderT c m) next -> ReaderT c m next
process fr = runFreeT fr >>= process'
process :: (IConnection c, MonadIO m) => SerializationT (ReaderT c m) next -> ReaderT c m next
process fr = runFreeT fr >>= process'
process fr = runFreeT fr >>= process'