Update shoeServer.hs