yogsototh/noodle
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Better error messages

Browse source
This commit is contained in:
Konrad Merz 2015-03-30 11:47:14 +02:00
parent 3dd1f24658
commit 0c50897711
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/main.hs
View file

@ -84,7 +84,7 @@ scottySite = do
then (T.unpack value):acc
else acc) [] all_params
case name of
"" -> showAction id ["Vote needs a name"]
"" -> showAction id ["Vote needs the name who votes."]
otherwise -> do
doVoting name (optionIds options) choosen_opt_ids id
S.redirect $ T.pack $ "/polls/" ++ id
@ -114,7 +114,7 @@ scottySite = do
name <- S.param "name"
desc <- S.param "desc"
case name of
"" -> blaze $ Noodle.Views.New.render [ "Poll needs a name" ]
"" -> blaze $ Noodle.Views.New.render [ "A Poll needs a name" ]
otherwise -> do
newId <- liftIO $ createPoll name desc
S.redirect $ T.pack $ "/polls/" ++ (show (getNewPollId newId))