expose asTransport

I'd like to be able to use things like `play` from hsc3 in the Server monad.