nuttycom/aftok - Change OVU272MTFF2XBBDVUH7GCQ6FX5NZFC7FYU57TQI6GTA6SLQKEKFAC

Create zcash account with recovery zaddr

Created by Kris Nuttycombe on February 9, 2021

OVU272MTFF2XBBDVUH7GCQ6FX5NZFC7FYU57TQI6GTA6SLQKEKFAC

Dependencies

In channels

main

Change contents

Insertion in lib/Aftok/Database/PostgreSQL/Users.hs at line 27 [3.57195]
[3.57748]
[2.20735]
```
    pexec,
```
Replacement in lib/Aftok/Database/PostgreSQL/Users.hs at line 52 [3.57195]
B:BD[3.58313] → [3.58313:58323]
```
  pinsert
```
[3.58313]
[3.58323]
```
  uid <- pinsert
```

Insertion in lib/Aftok/Database/PostgreSQL/Users.hs at line 59 [3.57195]

[3.58618]

    )
  case user' ^. userAccountRecovery of
    RecoverByZAddr addr -> linkZcashAccount uid addr
    RecoverByEmail _ -> pure ()
  pure uid
linkZcashAccount :: UserId -> Zcash.Address -> DBM ()
linkZcashAccount uid addr =
  void $ pexec
    [sql| INSERT INTO cryptocurrency_accounts (user_id, is_primary, zcash_addr)
          VALUES (?, ?, ?) |]
    ( uid ^. _UserId,
      True,
      addr ^. Zcash._Address

Insertion in lib/Aftok/Database/PostgreSQL/Users.hs at line 75 [3.57195]
[3.58625]
[3.58625]

Create zcash account with recovery zaddr

Dependencies

In channels

Change contents

Insertion in lib/Aftok/Database/PostgreSQL/Users.hs at line 27 [3.57195]

Replacement in lib/Aftok/Database/PostgreSQL/Users.hs at line 52 [3.57195]

Insertion in lib/Aftok/Database/PostgreSQL/Users.hs at line 59 [3.57195]

Insertion in lib/Aftok/Database/PostgreSQL/Users.hs at line 75 [3.57195]