nuttycom/aftok - Change I4W76IFVZEKUHNVCNK3DKETL7BMOUCSZHQJ57F4EOUZBW7NHWIBAC

Render recaptcha explicitly.

Created by Kris Nuttycombe on January 30, 2021

I4W76IFVZEKUHNVCNK3DKETL7BMOUCSZHQJ57F4EOUZBW7NHWIBAC

Dependencies

In channels

main

Change contents

Replacement in client/dev/index.html at line 9 [4.2486]

B:BD[3.46] → [3.46:126]

    <script src="https://www.google.com/recaptcha/api.js" async defer></script>

[3.46]

[4.2649]

    <script src="https://www.google.com/recaptcha/api.js?render=explicit" async defer></script>

Insertion in client/src/Aftok/Api/Recaptcha.purs at line 3 [3.3287]
[3.3341]
[3.3341]
```
  , recaptchaRender
```

Replacement in client/src/Aftok/Signup.purs at line 30 [5.1]

B:BD[3.5273] → [3.5273:5323]

import Aftok.Api.Recaptcha (getRecaptchaResponse)

[3.5273]

[5.619]

import Aftok.Api.Recaptcha (getRecaptchaResponse, recaptchaRender)

Replacement in client/src/Aftok/Signup.purs at line 74 [5.1]
B:BD[5.1093] → [5.1093:1116]
```
  = SetUsername String
```
[5.1093]
[5.1116]
```
  = Initialize
  | SetUsername String
```
Insertion in client/src/Aftok/Signup.purs at line 95 [5.1]
[6.15111]
[6.15111]
```
    , recaptchaRender :: String -> String -> m Unit
```

Replacement in client/src/Aftok/Signup.purs at line 113 [5.1]

B:BD[6.15386] → [6.15386:15447]

    , eval: H.mkEval $ H.defaultEval { handleAction = eval }

[6.15386]

[6.15447]

    , eval: H.mkEval $ H.defaultEval { handleAction = eval, initialize = Just Initialize }

Replacement in client/src/Aftok/Signup.purs at line 194 [5.1]

B:BD[6.19109] → [6.19109:19407]

                          [ HH.div
                              [ P.classes (ClassName <$> [ "g-recaptcha", "mx-auto" ])
                              , P.attr (AttrName "data-sitekey") conf.recaptchaKey
                              ]
                              []
                          ]

[6.19109]

[6.19407]

                          [ HH.div [ P.id_ "grecaptcha" ] [] ]

Insertion in client/src/Aftok/Signup.purs at line 213 [5.1]

[6.20061]

    Initialize -> do
      lift $ caps.recaptchaRender conf.recaptchaKey "grecaptcha"

Replacement in client/src/Aftok/Signup.purs at line 219 [5.1]

B:BD[6.20197] → [2.14811:15050]

        Acc.UsernameCheckOK -> H.modify_ (\st -> st { signupErrors = M.delete UsernameField st.signupErrors })
        Acc.UsernameCheckTaken -> H.modify_ (\st -> st { signupErrors = M.insert UsernameField UsernameTaken st.signupErrors })

[6.20197]

[6.20323]

        Acc.UsernameCheckOK -> 
          H.modify_ (\st -> st { signupErrors = M.delete UsernameField st.signupErrors })
        Acc.UsernameCheckTaken -> 
          H.modify_ (\st -> st { signupErrors = M.insert UsernameField UsernameTaken st.signupErrors })

Replacement in client/src/Aftok/Signup.purs at line 246 [5.1]

B:BD[2.15827] → [2.15827:16070]

              Acc.ZAddrCheckValid -> H.modify_ (\st -> st { signupErrors = M.delete ZAddrField st.signupErrors })
              Acc.ZAddrCheckInvalid -> H.modify_ (\st -> st { signupErrors = M.insert ZAddrField ZAddrInvalid st.signupErrors })

[2.15827]

[6.21353]

              Acc.ZAddrCheckValid -> 
                H.modify_ (\st -> st { signupErrors = M.delete ZAddrField st.signupErrors })
              Acc.ZAddrCheckInvalid -> 
                H.modify_ (\st -> st { signupErrors = M.insert ZAddrField ZAddrInvalid st.signupErrors })

Insertion in client/src/Aftok/Signup.purs at line 394 [5.1]

[6.25461]

[7.2952]

  , recaptchaRender: \siteKey elemId -> liftEffect $ recaptchaRender siteKey elemId

Insertion in client/src/Aftok/Signup.purs at line 403 [5.1]

[6.25542]

[8.1448]

  , recaptchaRender: \siteKey elemId -> liftEffect $ recaptchaRender siteKey elemId