Move project templates to new templates/project dir

src/Vervis/Handler/Project.hs

@@ -40,7 +40,7 @@ getProjectsR ident = do
         return $ project ^. ProjectIdent
     defaultLayout $ do
         setTitle $ toHtml $ "Vervis > People > " <> ident <> " > Projects"
-        $(widgetFile "projects")
+        $(widgetFile "project/projects")
 
 postProjectsR :: Text -> Handler Html
 postProjectsR ident = do
@@ -54,10 +54,10 @@ postProjectsR ident = do
             redirectUltDest HomeR
         FormMissing -> do
             setMessage "Field(s) missing"
-            defaultLayout $(widgetFile "project-new")
+            defaultLayout $(widgetFile "project/project-new")
         FormFailure l -> do
             setMessage $ toHtml $ intercalate "; " l
-            defaultLayout $(widgetFile "project-new")
+            defaultLayout $(widgetFile "project/project-new")
 
 getProjectNewR :: Text -> Handler Html
 getProjectNewR ident = do
@@ -66,7 +66,7 @@ getProjectNewR ident = do
     ((_result, widget), enctype) <- runFormPost $ newProjectForm sid
     defaultLayout $ do
         setTitle $ toHtml $ "Vervis > People > " <> ident <> " > New Project"
-        $(widgetFile "project-new")
+        $(widgetFile "project/project-new")
 
 getProjectR :: Text -> Text -> Handler Html
 getProjectR user proj = do
@@ -81,4 +81,4 @@ getProjectR user proj = do
             , " > Project > "
             , proj
             ]
-        $(widgetFile "project")
+        $(widgetFile "project/project")