Create zcash account with recovery zaddr

Dependencies

• [2] U7YAT2ZK Add error reporting to signup form.
• [3] M4PWY5RU Preliminary work to add support for Zcash payments.

Change contents

• edit in lib/Aftok/Database/PostgreSQL/Users.hs at line 27
  [3.57748]

  [2.20735]
  + pexec,
• replacement in lib/Aftok/Database/PostgreSQL/Users.hs at line 52
  [3.58313]→[3.58313:58323](∅→∅)
  − pinsert
  [3.58313]

  [3.58323]
  + uid <- pinsert
• edit in lib/Aftok/Database/PostgreSQL/Users.hs at line 59
  [3.58618]

  [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
• edit in lib/Aftok/Database/PostgreSQL/Users.hs at line 75
  [3.58625]

  [3.58625]
  +