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
[ ] Log in using it
[ ] Change profile details
[ ] Key management
[/] Key management
[/] Add key
[ ] Delete key
[/] Delete key
[/] View keys
[ ] Project management
[/] Tickets

View file

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