Remove form field error duplication in project creation

This commit is contained in:
fr33domlover 2016-05-13 22:06:23 +00:00
parent 298bbc57e4
commit 3c95014087
2 changed files with 4 additions and 4 deletions

View file

@ -34,9 +34,9 @@ an overview of more-or-less what's left to do before the first release.
[ ] View it [ ] View it
[ ] Log in using it [ ] Log in using it
[ ] Change profile details [ ] Change profile details
[ ] Key management [/] Key management
[/] Add key [/] Add key
[ ] Delete key [/] Delete key
[/] View keys [/] View keys
[ ] Project management [ ] Project management
[/] Tickets [/] Tickets

View file

@ -55,8 +55,8 @@ postProjectsR ident = do
FormMissing -> do FormMissing -> do
setMessage "Field(s) missing" setMessage "Field(s) missing"
defaultLayout $(widgetFile "project/project-new") defaultLayout $(widgetFile "project/project-new")
FormFailure l -> do FormFailure l_ -> do
setMessage $ toHtml $ intercalate "; " l setMessage "Project creation failed, see below"
defaultLayout $(widgetFile "project/project-new") defaultLayout $(widgetFile "project/project-new")
getProjectNewR :: Text -> Handler Html getProjectNewR :: Text -> Handler Html