diff options
author | William Carroll <wpcarro@gmail.com> | 2020-07-30T17·38+0100 |
---|---|---|
committer | William Carroll <wpcarro@gmail.com> | 2020-07-30T17·38+0100 |
commit | dec8890190ff0b86f1a50044814701ef39b808e6 (patch) | |
tree | 3a6c5e821c43e3cbe920abfedcf87134716f7a6c /src/API.hs | |
parent | 30838b8df7350d9dd37b5873f21247d6bddefc15 (diff) |
Verify users' email addresses when they attempt to sign-up
Lots of changes here: - Add the GET /verify endpoint - Email users a secret using MailGun - Create a PendingAccounts table and record type - Prefer do-notation for FromRow instances (and in general) instead of the <*> or a liftA2 style. Using instances using `<*>` makes the instances depend on the order in which the record's fields were defined. When combined with a "SELECT *", which returns the columns in whichever order the schema defines them (or depending on the DB implementation), produces runtime parse errors at best and silent errors at worst. - Delete bill from accounts.csv to free up the wpcarro@gmail.com when testing the /verify route.
Diffstat (limited to 'src/API.hs')
-rw-r--r-- | src/API.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/API.hs b/src/API.hs index 01f7b7b750ce..0ae3112ae84c 100644 --- a/src/API.hs +++ b/src/API.hs @@ -18,6 +18,10 @@ type API = "accounts" :> ReqBody '[JSON] T.CreateAccountRequest :> Post '[JSON] NoContent + :<|> "verify" + :> QueryParam' '[Required] "username" Text + :> QueryParam' '[Required] "secret" Text + :> Get '[JSON] NoContent -- accounts: Read -- accounts: Update -- accounts: Delete |