From b312d41ef0f51b3d5bd457642c0aeae9400d9f01 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@rel4tion.org>
Date: Mon, 11 Apr 2016 22:46:09 +0000
Subject: [PATCH] Move project templates to new templates/project dir

---
 src/Vervis/Handler/Project.hs              | 10 +++++-----
 templates/{ => project}/project-new.hamlet |  0
 templates/{ => project}/project.hamlet     |  0
 templates/{ => project}/projects.hamlet    |  0
 4 files changed, 5 insertions(+), 5 deletions(-)
 rename templates/{ => project}/project-new.hamlet (100%)
 rename templates/{ => project}/project.hamlet (100%)
 rename templates/{ => project}/projects.hamlet (100%)

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