added server.hs