Pick shorter names for project page templates

src/Vervis/Handler/Project.hs

@@ -38,7 +38,7 @@ getProjectsR ident = do
             sharer ^. SharerId ==. project ^. ProjectSharer
         orderBy [asc $ project ^. ProjectIdent]
         return $ project ^. ProjectIdent
-    defaultLayout $(widgetFile "project/projects")
+    defaultLayout $(widgetFile "project/list")
 
 postProjectsR :: Text -> Handler Html
 postProjectsR ident = do
@@ -52,17 +52,17 @@ postProjectsR ident = do
             redirect HomeR
         FormMissing -> do
             setMessage "Field(s) missing"
-            defaultLayout $(widgetFile "project/project-new")
+            defaultLayout $(widgetFile "project/new")
         FormFailure _l -> do
             setMessage "Project creation failed, see below"
-            defaultLayout $(widgetFile "project/project-new")
+            defaultLayout $(widgetFile "project/new")
 
 getProjectNewR :: Text -> Handler Html
 getProjectNewR ident = do
     Entity _pid person <- requireAuth
     let sid = personIdent person
     ((_result, widget), enctype) <- runFormPost $ newProjectForm sid
-    defaultLayout $(widgetFile "project/project-new")
+    defaultLayout $(widgetFile "project/new")
 
 getProjectR :: Text -> Text -> Handler Html
 getProjectR user proj = do
@@ -70,4 +70,4 @@ getProjectR user proj = do
         Entity sid _s <- getBy404 $ UniqueSharerIdent user
         Entity _pid p <- getBy404 $ UniqueProject proj sid
         return p
-    defaultLayout $(widgetFile "project/project")
+    defaultLayout $(widgetFile "project/one")