Move repo related templates to new templates/repo dir

src/Vervis/Handler/Repo.hs

@@ -72,7 +72,7 @@ getReposR user proj = do
     defaultLayout $ do
         setTitle $ toHtml $ mconcat
             ["Vervis > People > ", user, " > Projects > ", proj, " Repos"]
-        $(widgetFile "repos")
+        $(widgetFile "repo/repos")
 
 postReposR :: Text -> Text -> Handler Html
 postReposR user proj = do
@@ -91,10 +91,10 @@ postReposR user proj = do
             redirectUltDest HomeR
         FormMissing -> do
             setMessage "Field(s) missing"
-            defaultLayout $(widgetFile "repo-new")
+            defaultLayout $(widgetFile "repo/repo-new")
         FormFailure l -> do
             setMessage $ toHtml $ intercalate "; " l
-            defaultLayout $(widgetFile "repo-new")
+            defaultLayout $(widgetFile "repo/repo-new")
 
 getRepoNewR :: Text -> Text -> Handler Html
 getRepoNewR user proj = do
@@ -105,7 +105,7 @@ getRepoNewR user proj = do
     defaultLayout $ do
         setTitle $ toHtml $ mconcat
             ["Vervis > People > ", user, " > Projects > ", proj, " > New Repo"]
-        $(widgetFile "repo-new")
+        $(widgetFile "repo/repo-new")
 
 instance ResultList D.DList where
     emptyList = D.empty
@@ -139,4 +139,4 @@ getRepoR user proj repo = do
     defaultLayout $ do
         setTitle $ toHtml $ intercalate " > " $
             ["Vervis", "People", user, "Projects", proj, "Repos", repo]
-        $(widgetFile "repo")
+        $(widgetFile "repo/repo")