haskell side for a new server view screen, on the model of the project view screen, with code sharing between them