S: simpification in Server.hs