diff --git a/src/Vervis/Handler/Project.hs b/src/Vervis/Handler/Project.hs index ed0405b..88a0b01 100644 --- a/src/Vervis/Handler/Project.hs +++ b/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") diff --git a/templates/project/projects.hamlet b/templates/project/list.hamlet similarity index 100% rename from templates/project/projects.hamlet rename to templates/project/list.hamlet diff --git a/templates/project/project-new.hamlet b/templates/project/new.hamlet similarity index 100% rename from templates/project/project-new.hamlet rename to templates/project/new.hamlet diff --git a/templates/project/project.hamlet b/templates/project/one.hamlet similarity index 100% rename from templates/project/project.hamlet rename to templates/project/one.hamlet