nuttycom/aftok - Change U256ZALIPTVWLNACYPIMWLNEYDQWP7CHF4Y4CGMILQTONJHMGQVQC

Add captcha check to register route.

Created by Kris Nuttycombe on September 13, 2020

U256ZALIPTVWLNACYPIMWLNEYDQWP7CHF4Y4CGMILQTONJHMGQVQC

Dependencies

In channels

main

Change contents

Replacement in DEVELOPMENT.md at line 51 [3.132]

B:BD[3.1543] → [3.1543:1630]

Once all the containers are up, you'll need to run the database migrations
as follows:

[3.1543]

[3.1630]

Database Configuration
----------------------
All database DDL state is handled using the Haskell dbmigrations tool.
Once all the containers are up, you'll need to run the existing database
migrations as follows:

Insertion in DEVELOPMENT.md at line 63 [3.132]

[3.1759]


New migrations can be created with:
~~~bash
moo-postgresql new --config-file ./local/conf/server/aftok-migrations.cfg kebab-case-descriptive-name
~~~

Insertion in aftok.cabal at line 35 [6.1]

[4.237]

[5.238]

                      Aftok.Currency.ZCash

Insertion in aftok.cabal at line 159 [6.1]
[7.14]
[8.1]
```
    , from-sum
```

Replacement in client/src/Aftok/Api/Account.purs at line 107 [2.149]

B:BD[2.2985] → [2.2985:3001]

  pure SignupOK

[2.2985]

[2.3001]

  let signupJSON = 
        { username: req.username
        , password: req.password
        , recoveryType: case req.recoverBy of
                             RecoverByEmail _ => "email"
                             RecoverByZAddr _ => "zaddr"
        , email: case req.recoverBy of
                      RecoverByEmail email -> Just email
                      RecoverByZAddr _ -> Nothing
        , zaddr: case req.recoverBy of
                      RecoverByEmail _ -> Nothing
                      RecoverByZAddr zaddr -> Just zaddr
        }

File addition: ZCash.hs (----------)

[4.4250]

{-# LANGUAGE TemplateHaskell    #-}
module Aftok.Currency.ZCash where
import           Control.Lens                   ( makePrisms
                                                )
newtype ZAddr = ZAddr { zaddrText :: Text }
  deriving (Eq, Ord, Show)
makePrisms ''ZAddr

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 44 [10.456]
[4.6775]
[9.1614]
```
import           Aftok.Currency.ZCash           (ZAddr(..), _ZAddr)
```
Deletion in lib/Aftok/Database/PostgreSQL.hs at line 79 [10.456]
B:BD[4.7285] → [4.7285:7309]
B:BD[4.7309] → [11.15657:15670]
```
null :: RowParser Null
null = field
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 95 [10.456]

B:BD[4.7631] → [4.7631:7718]

addressParser :: NetworkMode -> RowParser (NetworkId, Address)
addressParser mode = do

[4.7631]

[4.7718]

btcAddressParser :: NetworkMode -> RowParser (NetworkId, Address)
btcAddressParser mode = do

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 154 [10.456]

B:BD[12.1421] → [12.1421:1495]

      CreditToCurrency <$> (addressParser mode <* nullField <* nullField)

[12.1421]

[12.1495]

      CreditToCurrency <$> (btcAddressParser mode <* nullField <* nullField)

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 188 [10.456]
B:BD[10.2829] → [4.9208:9273]
```
userParser :: NetworkMode -> RowParser BTCUser
userParser mode =
```
[10.2829]
[11.17521]
```
userParser :: RowParser User
userParser =
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 192 [10.456]

B:BD[11.17557] → [11.17557:17659]

    <*> ((null *> null *> pure Nothing) <|> fmap Just (addressParser mode))
    <*> (Email <$> field)

[11.17557]

[10.3061]

    <*> (
      (maybe empty pure =<< fmap (RecoverByEmail . Email) <$> field)
      <|>
      (maybe empty pure =<< fmap (RecoverByZAddr . ZAddr) <$> field)
    )

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 526 [10.456]

B:BD[4.13814] → [4.13814:14019]

B:BD[4.14019] → [13.58432:58467]

  mode <- askNetworkMode
  let nidMay = fst <$> _userAddress user'
      addrMay :: Maybe Text
      addrMay = do
        network <- toNetwork mode <$> nidMay
        address <- snd <$> _userAddress user'
        addrToText network address

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 528 [10.456]

B:BD[11.22347] → [14.1233:1324]

    [sql| INSERT INTO users (handle, default_payment_network, default_payment_addr, email)

[11.22347]

[4.14139]

    [sql| INSERT INTO users (handle, recovery_email, recovery_zaddr)

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 531 [10.456]
∅:D[11.22386] → [4.14186:14219]
B:BD[15.9464] → [4.14186:14219]
∅:D[4.14219] → [15.9464:9478]
B:BD[15.9464] → [15.9464:9478]
B:BD[15.9478] → [11.22387:22421]
```
    , renderNetworkId <$> nidMay
    , addrMay
    , user' ^. userEmail . _Email
```
[11.22386]
[15.9510]
```
    , user' ^? userAccountRecovery . _RecoverByEmail . _Email
    , user' ^? userAccountRecovery . _RecoverByZAddr . _ZAddr
```
Deletion in lib/Aftok/Database/PostgreSQL.hs at line 536 [10.456]
B:BD[4.14256] → [4.14256:14281]
```
  mode <- askNetworkMode
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 537 [10.456]

B:BD[11.22443] → [11.22443:22465]

B:BD[11.22465] → [14.1325:1430]

    (userParser mode)
    [sql| SELECT handle, default_payment_network, default_payment_addr, email FROM users WHERE id = ? |]

[11.22443]

[15.9648]

    userParser
    [sql| SELECT handle, recovery_email, recovery_zaddr FROM users WHERE id = ? |]

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 542 [10.456]

[4.14363]

  headMay <$> pquery
    ((,) <$> idParser UserId <*> userParser)
    [sql| SELECT id, handle, recovery_email, recovery_zaddr FROM users WHERE handle = ? |]
    (Only h)
pgEval (FindUserPaymentAddress (UserId uid)) = do

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 550 [10.456]

B:BD[11.22487] → [11.22487:22537]

B:BD[11.22537] → [14.1431:1544]

∅:D[14.1544] → [15.9812:9825]

∅:D[16.18549] → [15.9812:9825]

B:BD[15.9812] → [15.9812:9825]

    ((,) <$> idParser UserId <*> userParser mode)
    [sql| SELECT id, handle, default_payment_network, default_payment_addr, email FROM users WHERE handle = ? |]
    (Only h)

[11.22487]

[15.9825]

    (btcAddressParser mode)
    [sql| SELECT default_payment_network, default_payment_addr FROM users WHERE id = ? |]
    (Only uid)

Deletion in lib/Aftok/Database.hs at line 39 [6.4936]
B:BD[4.19137] → [4.19137:19164]
```
type BTCUser = User BTCNet
```

Replacement in lib/Aftok/Database.hs at line 41 [6.4936]

B:BD[17.6156] → [12.1798:1961]

  CreateUser       :: BTCUser -> DBOp UserId
  FindUser         :: UserId -> DBOp (Maybe BTCUser)
  FindUserByName   :: UserName -> DBOp (Maybe (UserId, BTCUser))

[17.6156]

[17.6305]

  CreateUser       :: User -> DBOp UserId
  FindUser         :: UserId -> DBOp (Maybe User)
  FindUserByName   :: UserName -> DBOp (Maybe (UserId, User))
  FindUserPaymentAddress :: UserId -> DBOp (Maybe (BTCNet))

Replacement in lib/Aftok/Database.hs at line 116 [6.4936]
B:BD[17.7400] → [4.19691:19740]
```
createUser :: (MonadDB m) => BTCUser -> m UserId
```
[17.7400]
[18.7103]
```
createUser :: (MonadDB m) => User -> m UserId
```
Replacement in lib/Aftok/Database.hs at line 119 [6.4936]
B:BD[17.7466] → [4.19741:19795]
```
findUser :: (MonadDB m) => UserId -> MaybeT m BTCUser
```
[17.7466]
[16.24861]
```
findUser :: (MonadDB m) => UserId -> MaybeT m User
```

Replacement in lib/Aftok/Database.hs at line 122 [6.4936]

B:BD[6.5045] → [4.19796:19868]

findUserByName :: (MonadDB m) => UserName -> MaybeT m (UserId, BTCUser)

[6.5045]

[16.24969]

findUserByName :: (MonadDB m) => UserName -> MaybeT m (UserId, User)

Insertion in lib/Aftok/Database.hs at line 124 [6.4936]

[16.25019]

[17.7626]


findUserPaymentAddress :: (MonadDB m) => UserId -> MaybeT m (BTCNet)
findUserPaymentAddress = MaybeT . liftdb . FindUserPaymentAddress

Replacement in lib/Aftok/Payments/Types.hs at line 75 [18.10545]

B:BD[19.3782] → [11.41048:41145]

      -- using error here is reasonable since it would indicate
      -- a serialization problem

[19.3782]

[11.41145]

          -- using error here is reasonable since it would indicate
          -- a serialization problem

Deletion in lib/Aftok/Payments.hs at line 49 [20.5686]

B:BD[12.6682] → [12.6682:6744]

                                                , userAddress

Replacement in lib/Aftok/Payments.hs at line 275 [20.5686]
B:BD[16.30397] → [16.30397:30420]
B:BD[16.30420] → [4.29098:29155]
```
  user <- findUser uid
  addr <- MaybeT . pure . fmap snd $ user ^. userAddress
```
[16.30397]
[4.29155]
```
  (_, addr) <- findUserPaymentAddress uid
```

Replacement in lib/Aftok/TimeLog.hs at line 160 [22.846]

B:BD[21.1582] → [12.12413:12496]

workIndex
  :: forall a f . (Ord a, Foldable f) => f (LogEntry a) -> (WorkIndex a)

[21.1582]

[9.4957]

workIndex :: forall a f . (Ord a, Foldable f) => f (LogEntry a) -> (WorkIndex a)

Deletion in lib/Aftok/Types.hs at line 9 [23.805]
B:BD[11.42864] → [11.42864:42922]
```
import           Data.Maybe                     ( Maybe )
```
Insertion in lib/Aftok/Types.hs at line 16 [23.805]
[11.43324]
[4.32939]
```
import           Aftok.Currency.ZCash           ( ZAddr )
```

Replacement in lib/Aftok/Types.hs at line 28 [23.805]

B:BD[4.33159] → [4.33159:33266]

data User a = User
  { _username    :: !UserName
  , _userAddress :: !(Maybe a)
  , _userEmail   :: !Email

[4.33159]

[4.33266]

data AccountRecovery
  = RecoverByEmail Email
  | RecoverByZAddr ZAddr
makePrisms ''AccountRecovery
data User = User
  { _username             :: !UserName
  , _userAccountRecovery  :: !AccountRecovery

File addition: 2020-09-14_23-27-54_users-account-recovery.txt (----------)

[24.1]

Description: (Describe migration here.)
Created: 2020-09-14 23:27:57.342707094 UTC
Depends: 2020-06-06_03-53-54_add-payment-networks
Apply: |
  ALTER TABLE users RENAME COLUMN email TO recovery_email;
  ALTER TABLE users ALTER COLUMN recovery_email DROP NOT NULL;
  ALTER TABLE users ADD COLUMN recovery_zaddr text;
Revert: |
  ALTER TABLE users RENAME COLUMN recovery_email TO email;
  ALTER TABLE users ALTER COLUMN email SET NOT NULL;
  ALTER TABLE users DROP COLUMN recovery_zaddr;

Insertion in server/Aftok/QConfig.hs at line 25 [26.4500]
[16.32643]
[25.216]
```
import           Aftok.Snaplet.Users (CaptchaConfig(..))
```
Replacement in server/Aftok/QConfig.hs at line 37 [26.4500]
B:BD[19.4377] → [2.9583:9618]
```
  , _recaptchaSecret :: Maybe Text
```
[19.4377]
[27.534]
```
  , _recaptchaSecret :: CaptchaConfig
```
Replacement in server/Aftok/QConfig.hs at line 66 [26.4500]
B:BD[11.45251] → [2.9619:9658]
```
    <*> C.lookup cfg "recaptchaSecret"
```
[11.45251]
[28.7968]
```
    <*> (CaptchaConfig <$> C.require cfg "recaptchaSecret")
```

Replacement in server/Aftok/Snaplet/Projects.hs at line 66 [29.2363]

B:BD[28.9021] → [2.9661:9718]

  uid     <- requireUserId
  pid     <- requireProjectId

[28.9021]

[28.9070]

  uid                       <- requireUserId
  pid                       <- requireProjectId

Replacement in server/Aftok/Snaplet/Projects.hs at line 69 [29.2363]
B:BD[28.9145] → [2.9719:9756]
∅:D[2.9756] → [11.54007:54038]
B:BD[11.54007] → [11.54007:54038]
```
  t       <- liftIO C.getCurrentTime
  (Just u, Just p, invCode) <-
```
[28.9145]
[11.54038]
```
  t                         <- liftIO C.getCurrentTime
  (Just p, invCode) <-
```

Replacement in server/Aftok/Snaplet/Projects.hs at line 72 [29.2363]

B:BD[11.54051] → [11.54051:54145]

    $   (,,)
    <$> (runMaybeT $ findUser uid)
    <*> (runMaybeT $ findUserProject uid pid)

[11.54051]

[11.54145]

    $   (,)
    <$> (runMaybeT $ findUserProject uid pid)

Replacement in server/Aftok/Snaplet/Projects.hs at line 77 [29.2363]

B:BD[11.54279] → [11.54279:54330]

                                  (u ^. userEmail)

[11.54279]

[11.54330]

                                  (Email "noreply@aftok.com")

Insertion in server/Aftok/Snaplet/Users.hs at line 17 [30.3234]
[9.8667]
[2.9857]
```
import           Control.FromSum                ( fromMaybeM )
```

Replacement in server/Aftok/Snaplet/Users.hs at line 19 [30.3234]

B:BD[2.9909] → [2.9909:9970]

import           Data.Aeson                    ((.:), (.:?))

[2.9909]

[11.55500]

import           Data.Aeson                     ( (.:)
                                                , (.:?)
                                                )

Replacement in server/Aftok/Snaplet/Users.hs at line 27 [30.3234]

B:BD[4.34767] → [12.14939:15002]

B:BD[12.15002] → [2.10024:10127]

import           Haskoin.Address                ( textToAddr )
import           Network.HTTP.Client            ( parseRequest, responseBody, responseStatus, httpLbs)

[4.34767]

[2.10127]

import           Network.HTTP.Client            ( parseRequest
                                                , responseBody
                                                , responseStatus
                                                , httpLbs
                                                )

Replacement in server/Aftok/Snaplet/Users.hs at line 33 [30.3234]

B:BD[2.10193] → [2.10193:10271]

import           Network.HTTP.Client.MultipartFormData (formDataBody, partBS)

[2.10193]

[2.10271]

import           Network.HTTP.Client.MultipartFormData
                                                ( formDataBody
                                                , partBS
                                                )

Replacement in server/Aftok/Snaplet/Users.hs at line 39 [30.3234]

B:BD[28.10432] → [4.34824:34853]

B:BD[4.34853] → [11.55723:55897]

import           Aftok.Types
import           Aftok.Currency.Bitcoin         ( NetworkId(..)
                                                , toNetwork
                                                )

[28.10432]

[9.8814]

import           Aftok.Currency.ZCash           ( ZAddr(..) )

Insertion in server/Aftok/Snaplet/Users.hs at line 42 [30.3234]
[31.4087]
[9.8846]
```
import           Aftok.Types
```

Replacement in server/Aftok/Snaplet/Users.hs at line 47 [30.3234]

B:BD[30.3651] → [2.10335:10439]

import qualified  Snap.Core                    as S
import qualified  Snap.Snaplet                 as S

[30.3651]

[11.55950]

import qualified Snap.Core                     as S
import qualified Snap.Snaplet                  as S

Replacement in server/Aftok/Snaplet/Users.hs at line 51 [30.3234]
B:BD[32.269] → [17.12420:12436]
B:BD[17.12436] → [4.34921:34955]
```
data CUser = CU
  { _cuser           :: User Text
```
[32.269]
[9.9043]
```
data RegisterRequest = RegisterRequest
  { _cuser           :: User
```
Insertion in server/Aftok/Snaplet/Users.hs at line 54 [30.3234]
[9.9078]
[28.10433]
```
  , _captchaToken    :: Text
```
Replacement in server/Aftok/Snaplet/Users.hs at line 57 [30.3234]
B:BD[32.349] → [17.12437:12456]
```
makeLenses ''CUser
```
[32.349]
[30.4305]
```
makeLenses ''RegisterRequest
```

Replacement in server/Aftok/Snaplet/Users.hs at line 59 [30.3234]

B:BD[30.4306] → [2.10440:10499]

∅:D[2.10499] → [11.56004:56168]

B:BD[9.9104] → [11.56004:56168]

instance A.FromJSON CUser where
  parseJSON (A.Object v) =
    let parseUser =
            User
              <$> (UserName <$> v .: "username")
              <*> (v .: "btcAddr")
              <*> (Email <$> v .: "email")

[30.4306]

[28.10651]

instance A.FromJSON RegisterRequest where
  parseJSON (A.Object v) = do
    recoveryType <- v .: "recoveryType"
    recovery <- case (recoveryType :: Text) of
      "email" -> RecoverByEmail . Email <$> v .: "email"
      "zaddr" -> RecoverByZAddr . ZAddr <$> v .: "zaddr"
      _ -> Prelude.empty
    user <- User <$> (UserName <$> v .: "username")
                 <*> pure recovery

Replacement in server/Aftok/Snaplet/Users.hs at line 69 [30.3234]

B:BD[28.10652] → [9.9105:9234]

∅:D[9.9234] → [28.10784:10820]

B:BD[28.10784] → [28.10784:10820]

B:BD[28.10820] → [11.56169:56251]

        parseInvitationCodes c = either
          (\e -> fail $ "Invitation code was rejected as invalid: " <> e)
          pure
          (traverse parseInvCode c)
    in  CU
          <$> parseUser
          <*> (fromString <$> v .: "password")

[28.10652]

[11.56251]

    RegisterRequest user
          <$> (fromString <$> v .: "password")
          <*> (v .: "captchaToken")

Insertion in server/Aftok/Snaplet/Users.hs at line 74 [30.3234]

[28.10821]

[32.634]

    where
      parseInvitationCodes c = either
             (\e -> fail $ "Invitation code was rejected as invalid: " <> e)
             pure
             (traverse parseInvCode c)

Replacement in server/Aftok/Snaplet/Users.hs at line 81 [30.3234]

B:BD[30.4425] → [18.18267:18311]

∅:D[28.11004] → [32.657:678]

∅:D[18.18311] → [32.657:678]

B:BD[30.4886] → [32.657:678]

B:BD[32.678] → [2.10500:10534]

∅:D[2.10534] → [28.11005:11064]

B:BD[29.3592] → [28.11005:11064]

B:BD[28.11064] → [11.56317:56389]

B:BD[11.56389] → [2.10535:10556]

∅:D[2.10556] → [11.56416:56451]

B:BD[11.56416] → [11.56416:56451]

∅:D[11.56451] → [4.35003:35029]

B:BD[28.11096] → [4.35003:35029]

B:BD[4.35029] → [11.56452:56465]

B:BD[11.56465] → [13.59698:59777]

registerHandler :: S.Handler App App UserId
registerHandler = do
  rbody <- S.readRequestBody 4096
  -- allow any number of 'invitationCode' query parameters
  userData    <- maybe (snapError 400 "Could not parse user data") pure
    $ A.decode rbody
  t     <- liftIO C.getCurrentTime
  nmode <- getNetworkMode
  let addr =
        textToAddr (toNetwork nmode BTC) =<< (userData ^. cuser . userAddress)

[30.4425]

[11.56546]

registerHandler :: CaptchaConfig -> S.Handler App App UserId
registerHandler cfg = do
  rbody    <- S.readRequestBody 4096
  userData <- fromMaybeM (snapError 400 "Could not parse user data") (A.decode rbody)
  captchaResult <- liftIO $ checkCaptcha cfg (userData ^. captchaToken)
  void . either (const . throwDenied $ AU.AuthError "Captcha check failed, please try again.") pure $ captchaResult
  now   <- liftIO C.getCurrentTime

Replacement in server/Aftok/Snaplet/Users.hs at line 93 [30.3234]

B:BD[11.56716] → [11.56716:56909]

      userId <- createUser
        ((userData ^. cuser) & userAddress .~ ((BTC, ) <$> addr))
      void $ traverse (acceptInvitation userId t) (userData ^. invitationCodes)
      return userId

[11.56716]

[2.10557]

      userId <- createUser (userData ^. cuser)
      void $ traverse (acceptInvitation userId now) (userData ^. invitationCodes)
      pure userId

Replacement in server/Aftok/Snaplet/Users.hs at line 102 [30.3234]
B:BD[11.56938] → [11.56938:56976]
```
  t        <- liftIO C.getCurrentTime
```
[11.56938]
[2.10596]
```
  now      <- liftIO C.getCurrentTime
```
Replacement in server/Aftok/Snaplet/Users.hs at line 111 [30.3234]
∅:D[11.57278] → [33.983:1051]
B:BD[33.983] → [33.983:1051]
```
    (\cx -> void . snapEval $ traverse (acceptInvitation uid t) cx)
```
[11.57278]
[33.1051]
```
    (\cx -> void . snapEval $ traverse (acceptInvitation uid now) cx)
```

Replacement in server/Aftok/Snaplet/Users.hs at line 136 [30.3234]

B:BD[2.11167] → [2.11167:11771]

    CaptchaResponse <$> v .: "success"
                    <*> (fmap toError . join . toList <$> v .:? "error-codes")
    where
      toError = \case
        "missing-input-secret" -> MissingInputSecret
        "invalid-input-secret" -> InvalidInputSecret
        "missing-input-response" -> MissingInputResponse
        "invalid-input-response" -> InvalidInputResponse
        "bad-request" -> BadRequest
        "timeout-or-duplicate" -> TimeoutOrDuplicate
        other -> CaptchaError $ "Unexpected error code: " <> other
  parseJSON _ =
    fail "Captcha response body was not a valid JSON object."

[2.11167]

[9.9321]

    CaptchaResponse
      <$> v
      .:  "success"
      <*> (fmap toError . join . toList <$> v .:? "error-codes")
   where
    toError = \case
      "missing-input-secret"   -> MissingInputSecret
      "invalid-input-secret"   -> InvalidInputSecret
      "missing-input-response" -> MissingInputResponse
      "invalid-input-response" -> InvalidInputResponse
      "bad-request"            -> BadRequest
      "timeout-or-duplicate"   -> TimeoutOrDuplicate
      other -> CaptchaError $ "Unexpected error code: " <> other
  parseJSON _ = fail "Captcha response body was not a valid JSON object."

Replacement in server/Aftok/Snaplet/Users.hs at line 153 [30.3234]

B:BD[2.11863] → [2.11863:12093]

  request <- parseRequest "https://www.google.com/recaptcha/api/siteverify"
  reqWithBody <- formDataBody [partBS "secret" (T.encodeUtf8 $ secretKey cfg), partBS "response" (T.encodeUtf8 token)] request
  manager <- newTlsManager

[2.11863]

[2.12093]

  request     <- parseRequest "https://www.google.com/recaptcha/api/siteverify"
  reqWithBody <- formDataBody
    [ partBS "secret"   (T.encodeUtf8 $ secretKey cfg)
    , partBS "response" (T.encodeUtf8 token)
    ]
    request
  manager  <- newTlsManager

Replacement in server/Aftok/Snaplet/Users.hs at line 162 [30.3234]

B:BD[2.12189] → [2.12189:12418]

    200 ->
      case A.eitherDecode (responseBody response) of
        Left err -> Left [CaptchaError $ "Failed to decode JSON response: " <> T.pack err]
        Right cr -> if success cr then Right () else Left (errorCodes cr)

[2.12189]

[2.12418]

    200 -> case A.eitherDecode (responseBody response) of
      Left err ->
        Left [CaptchaError $ "Failed to decode JSON response: " <> T.pack err]
      Right cr -> if success cr then Right () else Left (errorCodes cr)

Replacement in server/Aftok/Snaplet/Users.hs at line 167 [30.3234]

B:BD[2.12433] → [2.12433:12515]

      Left $ [CaptchaError $ "Unexpected status code: " <> T.pack (show errCode)]

[2.12433]

      Left
        $ [CaptchaError $ "Unexpected status code: " <> T.pack (show errCode)]

Replacement in server/Main.hs at line 67 [34.5188]

B:BD[28.12971] → [2.12517:12576]

    registerRoute     = void $ method POST registerHandler

[28.12971]

[11.63100]

    registerRoute     = void $ method POST (registerHandler $ cfg ^. recaptchaSecret)

Add captcha check to register route.

Dependencies

In channels

Change contents

Replacement in DEVELOPMENT.md at line 51 [3.132]

Insertion in DEVELOPMENT.md at line 63 [3.132]

Insertion in aftok.cabal at line 35 [6.1]

Insertion in aftok.cabal at line 159 [6.1]

Replacement in client/src/Aftok/Api/Account.purs at line 107 [2.149]

File addition: ZCash.hs (----------)

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 44 [10.456]

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 79 [10.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 95 [10.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 154 [10.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 188 [10.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 192 [10.456]

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 526 [10.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 528 [10.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 531 [10.456]

Deletion in lib/Aftok/Database/PostgreSQL.hs at line 536 [10.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 537 [10.456]

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 542 [10.456]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 550 [10.456]

Deletion in lib/Aftok/Database.hs at line 39 [6.4936]

Replacement in lib/Aftok/Database.hs at line 41 [6.4936]

Replacement in lib/Aftok/Database.hs at line 116 [6.4936]

Replacement in lib/Aftok/Database.hs at line 119 [6.4936]

Replacement in lib/Aftok/Database.hs at line 122 [6.4936]

Insertion in lib/Aftok/Database.hs at line 124 [6.4936]

Replacement in lib/Aftok/Payments/Types.hs at line 75 [18.10545]

Deletion in lib/Aftok/Payments.hs at line 49 [20.5686]

Replacement in lib/Aftok/Payments.hs at line 275 [20.5686]

Replacement in lib/Aftok/TimeLog.hs at line 160 [22.846]

Deletion in lib/Aftok/Types.hs at line 9 [23.805]

Insertion in lib/Aftok/Types.hs at line 16 [23.805]

Replacement in lib/Aftok/Types.hs at line 28 [23.805]

File addition: 2020-09-14_23-27-54_users-account-recovery.txt (----------)

Insertion in server/Aftok/QConfig.hs at line 25 [26.4500]

Replacement in server/Aftok/QConfig.hs at line 37 [26.4500]

Replacement in server/Aftok/QConfig.hs at line 66 [26.4500]

Replacement in server/Aftok/Snaplet/Projects.hs at line 66 [29.2363]

Replacement in server/Aftok/Snaplet/Projects.hs at line 69 [29.2363]