Document server.hs code a little bit