recaptcha 0.1 → 0.1.0.1
raw patch · 2 files changed
+10/−7 lines, 2 filesdep ~base
Dependency ranges changed: base
Files
- Network/Captcha/ReCaptcha.hs +2/−2
- recaptcha.cabal +8/−5
Network/Captcha/ReCaptcha.hs view
@@ -51,7 +51,7 @@ , textarea ! [name "recaptcha_challenge_field", rows "3", cols "40"] << noHtml , input ! [thetype "hidden", name "recaptcha_response_field", value "manual_challenge"] ]- where captchaURL s = "http://api.recaptcha.net/" ++ s ++ "?k=" ++ recaptchaPublicKey +++ where captchaURL s = "https://www.google.com/recaptcha/api/" ++ s ++ "?k=" ++ recaptchaPublicKey ++ case mbErrorMsg of Just e -> "?error=" ++ e Nothing -> ""@@ -63,7 +63,7 @@ -> String -- ^ value of the recaptcha_response_field -> IO (Either String ()) -- ^ @Left@ error message, or @Right ()@ for success validateCaptcha recaptchaPrivateKey ipaddress challenge response = do- let verifyURIString = "http://api-verify.recaptcha.net/verify"+ let verifyURIString = "https://www.google.com/recaptcha/api/verify" let verifyURI = case parseURI verifyURIString of Just uri -> uri Nothing -> error $ "Could not parse URI: " ++ verifyURIString
recaptcha.cabal view
@@ -1,6 +1,6 @@ Name: recaptcha-Version: 0.1-Cabal-Version: >= 1.2+Version: 0.1.0.1+Cabal-Version: >= 1.6 Build-Type: Custom License: BSD3 License-File: LICENSE@@ -15,11 +15,14 @@ Description: reCAPTCHA (http://recaptcha.net/) is a service that provides captchas for preventing automated spam in web applications. recaptcha-hs provides functions for using reCAPTCHA in Haskell- web applications. + web applications.+Source-repository head+ type: git+ location: git://github.com/jgm/recaptcha.git Library- Build-Depends: base, HTTP >= 3001.1.4, xhtml >= 3000.0, network >= 2.2.0.1+ Build-Depends: base < 5, HTTP >= 3001.1.4, xhtml >= 3000.0, network >= 2.2.0.1 Hs-Source-Dirs: . Exposed-Modules: Network.Captcha.ReCaptcha- Ghc-Options: -Wall -threaded+ Ghc-Options: -Wall Ghc-Prof-Options: -auto-all