Luke Plant avatar Luke Plant committed ebf2e0c

Updated for change in Ella API

Comments (0)

Files changed (2)

mailinglistconfirm.cabal

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

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
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.