Create server.hs