Commits

Luke Plant  committed b7165be

Clarified some messages.

  • Participants
  • Parent commits ebf2e0c

Comments (0)

Files changed (1)

File src/ConfirmCgi.hs

      then return $ Just $ invalidInput "Please provide 'name' and 'email' parameters\n"
      else do
        addEntry (fromJust name) (fromJust email)
-       return $ Just $ message "Added!\n"
+       return $ Just $ message "Entry added to database\n"
 
 deleteEntryView req = do
   let email = getPOST req "email"
      then return $ Just $ invalidInput "Please provide 'email' parameter"
      else do
        deleteEntry (fromJust email)
-       return $ Just $ message "Entry removed!\n"
+       return $ Just $ message "Entry removed from database\n"
 
 confirmEmailView email req = do
   updated <- confirmByEmail email