Commits

Luke Plant  committed ebf2e0c

Updated for change in Ella API

  • Participants
  • Parent commits 9179971

Comments (0)

Files changed (2)

File mailinglistconfirm.cabal

         containers,
         utf8-string,
         bytestring,
-        ella
+        ella >= 0.1.2
   Main-is: ConfirmCgi.hs
   hs-source-dirs: src

File src/ConfirmCgi.hs

 -- and correct
 passwordRequired :: View -> View
 passwordRequired view req = do
-  let password = getPOST "password" req
+  let password = getPOST req "password"
   case password of
     Nothing -> return ad
     Just pw | pw == access_password -> view req
 -- -- Admin URLs
 
 addEntryView req = do
-  let name  = getPOST "name" req
-      email = getPOST "email" req
+  let name  = getPOST req "name"
+      email = getPOST req "email"
   if any isNothing [name, email]
      then return $ Just $ invalidInput "Please provide 'name' and 'email' parameters\n"
      else do
        return $ Just $ message "Added!\n"
 
 deleteEntryView req = do
-  let email = getPOST "email" req
+  let email = getPOST req "email"
   if isNothing email
      then return $ Just $ invalidInput "Please provide 'email' parameter"
      else do