sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2025-03-20 04:46:22 +09:00
Code Issues Activity

Remove form field error duplication in project creation

Browse source
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
src/Vervis/Handler
Project.hs

4
src/Vervis/Handler/Project.hs
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