yesod-recaptcha2 0.2.3 → 0.2.4
raw patch · 2 files changed
+13/−9 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Yesod.ReCaptcha2: class YesodAuth site => YesodReCaptcha site where reCaptchaSiteKey = pure "6LeIxAcTAAAAAJcZVRqyHh71UMIEGNQ_MXjiZKhI" reCaptchaSecretKey = pure "6LeIxAcTAAAAAGG-vFI1TnRWxMZNFuojJ4WifJWe" reCaptchaLanguage = pure Nothing
+ Yesod.ReCaptcha2: class YesodAuth site => YesodReCaptcha site
- Yesod.ReCaptcha2: mReCaptcha :: YesodReCaptcha site => MForm (HandlerT site IO) (FormResult (), [FieldView site])
+ Yesod.ReCaptcha2: mReCaptcha :: YesodReCaptcha site => MForm (HandlerFor site) (FormResult (), [FieldView site])
- Yesod.ReCaptcha2: reCaptcha :: YesodReCaptcha site => AForm (HandlerT site IO) ()
+ Yesod.ReCaptcha2: reCaptcha :: YesodReCaptcha site => AForm (HandlerFor site) ()
- Yesod.ReCaptcha2: reCaptchaLanguage :: YesodReCaptcha site => HandlerT site IO (Maybe Text)
+ Yesod.ReCaptcha2: reCaptchaLanguage :: YesodReCaptcha site => HandlerFor site (Maybe Text)
- Yesod.ReCaptcha2: reCaptchaSecretKey :: YesodReCaptcha site => HandlerT site IO Text
+ Yesod.ReCaptcha2: reCaptchaSecretKey :: YesodReCaptcha site => HandlerFor site Text
- Yesod.ReCaptcha2: reCaptchaSiteKey :: YesodReCaptcha site => HandlerT site IO Text
+ Yesod.ReCaptcha2: reCaptchaSiteKey :: YesodReCaptcha site => HandlerFor site Text
Files
- src/Yesod/ReCaptcha2.hs +6/−6
- yesod-recaptcha2.cabal +7/−3
src/Yesod/ReCaptcha2.hs view
@@ -11,14 +11,14 @@ -- | default key is testing. you should impl reCaptchaSiteKey and reCaptchaSecretKey class YesodAuth site => YesodReCaptcha site where- reCaptchaSiteKey :: HandlerT site IO Text+ reCaptchaSiteKey :: HandlerFor site Text reCaptchaSiteKey = pure "6LeIxAcTAAAAAJcZVRqyHh71UMIEGNQ_MXjiZKhI"- reCaptchaSecretKey :: HandlerT site IO Text+ reCaptchaSecretKey :: HandlerFor site Text reCaptchaSecretKey = pure "6LeIxAcTAAAAAGG-vFI1TnRWxMZNFuojJ4WifJWe" -- | with specific language from <https://developers.google.com/recaptcha/docs/language> -- -- > reCaptchaLanguage = pure (Just "ru")- reCaptchaLanguage :: HandlerT site IO (Maybe Text)+ reCaptchaLanguage :: HandlerFor site (Maybe Text) reCaptchaLanguage = pure Nothing newtype SiteverifyResponse@@ -28,13 +28,13 @@ deriving (Eq, Ord, Read, Show, Generic, FromJSON, ToJSON) -- | for Applicative style form-reCaptcha :: YesodReCaptcha site => AForm (HandlerT site IO) ()+reCaptcha :: YesodReCaptcha site => AForm (HandlerFor site) () reCaptcha = formToAForm mReCaptcha -- | for Monadic style form-mReCaptcha :: YesodReCaptcha site => MForm (HandlerT site IO) (FormResult (), [FieldView site])+mReCaptcha :: YesodReCaptcha site => MForm (HandlerFor site) (FormResult (), [FieldView site]) mReCaptcha = do- result <- liftHandlerT formResult+ result <- lift formResult return (result, [fieldViewSite]) where formResult = do postParam <- lookupPostParam "g-recaptcha-response"
yesod-recaptcha2.cabal view
@@ -1,9 +1,11 @@--- This file has been generated from package.yaml by hpack version 0.17.1.+-- This file has been generated from package.yaml by hpack version 0.20.0. -- -- see: https://github.com/sol/hpack+--+-- hash: d33d7c41317f538fc8619b0117572564e3a742273756bae5f8ae1271aa6f36b4 name: yesod-recaptcha2-version: 0.2.3+version: 0.2.4 synopsis: yesod recaptcha2 description: recaptcha2 for yesod-form category: Web@@ -28,10 +30,12 @@ hs-source-dirs: src build-depends:- base >= 4.7 && < 5+ base >=4.7 && <5 , classy-prelude-yesod , http-conduit , yesod-auth exposed-modules: Yesod.ReCaptcha2+ other-modules:+ Paths_yesod_recaptcha2 default-language: Haskell2010