diff --git a/README.md b/README.md index 65c658b..26f2d2f 100644 --- a/README.md +++ b/README.md @@ -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 diff --git a/src/Vervis/Handler/Project.hs b/src/Vervis/Handler/Project.hs index e61dcfe..b8bfb70 100644 --- a/src/Vervis/Handler/Project.hs +++ b/src/Vervis/Handler/Project.hs @@ -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