Move project templates to new templates/project dir
This commit is contained in:
parent
7eb3c0ac9e
commit
b312d41ef0
4 changed files with 5 additions and 5 deletions
|
@ -40,7 +40,7 @@ getProjectsR ident = do
|
||||||
return $ project ^. ProjectIdent
|
return $ project ^. ProjectIdent
|
||||||
defaultLayout $ do
|
defaultLayout $ do
|
||||||
setTitle $ toHtml $ "Vervis > People > " <> ident <> " > Projects"
|
setTitle $ toHtml $ "Vervis > People > " <> ident <> " > Projects"
|
||||||
$(widgetFile "projects")
|
$(widgetFile "project/projects")
|
||||||
|
|
||||||
postProjectsR :: Text -> Handler Html
|
postProjectsR :: Text -> Handler Html
|
||||||
postProjectsR ident = do
|
postProjectsR ident = do
|
||||||
|
@ -54,10 +54,10 @@ postProjectsR ident = do
|
||||||
redirectUltDest HomeR
|
redirectUltDest HomeR
|
||||||
FormMissing -> do
|
FormMissing -> do
|
||||||
setMessage "Field(s) missing"
|
setMessage "Field(s) missing"
|
||||||
defaultLayout $(widgetFile "project-new")
|
defaultLayout $(widgetFile "project/project-new")
|
||||||
FormFailure l -> do
|
FormFailure l -> do
|
||||||
setMessage $ toHtml $ intercalate "; " l
|
setMessage $ toHtml $ intercalate "; " l
|
||||||
defaultLayout $(widgetFile "project-new")
|
defaultLayout $(widgetFile "project/project-new")
|
||||||
|
|
||||||
getProjectNewR :: Text -> Handler Html
|
getProjectNewR :: Text -> Handler Html
|
||||||
getProjectNewR ident = do
|
getProjectNewR ident = do
|
||||||
|
@ -66,7 +66,7 @@ getProjectNewR ident = do
|
||||||
((_result, widget), enctype) <- runFormPost $ newProjectForm sid
|
((_result, widget), enctype) <- runFormPost $ newProjectForm sid
|
||||||
defaultLayout $ do
|
defaultLayout $ do
|
||||||
setTitle $ toHtml $ "Vervis > People > " <> ident <> " > New Project"
|
setTitle $ toHtml $ "Vervis > People > " <> ident <> " > New Project"
|
||||||
$(widgetFile "project-new")
|
$(widgetFile "project/project-new")
|
||||||
|
|
||||||
getProjectR :: Text -> Text -> Handler Html
|
getProjectR :: Text -> Text -> Handler Html
|
||||||
getProjectR user proj = do
|
getProjectR user proj = do
|
||||||
|
@ -81,4 +81,4 @@ getProjectR user proj = do
|
||||||
, " > Project > "
|
, " > Project > "
|
||||||
, proj
|
, proj
|
||||||
]
|
]
|
||||||
$(widgetFile "project")
|
$(widgetFile "project/project")
|
||||||
|
|
Loading…
Reference in a new issue