Prefer POST /verify to GET /verify

To make things easier for testing, I setup the /verify endpoint as a GET, so
that I could email myself clickable URLs. With POST /verify, my options are:
- send email with an HTML button and form that POSTs to /verify
- email myself the curl instruction

I'm preferring the latter for now...

1 files changed, 13 insertions, 0 deletions

diff --git a/assessments/tt/src/Types.hs b/assessments/tt/src/Types.hs
index 00fa09ccc140..6b06a39694fc 100644
--- a/assessments/tt/src/Types.hs
+++ b/assessments/tt/src/Types.hs
@@ -420,6 +420,19 @@ instance ToField RegistrationSecret where
   toField (RegistrationSecret secretUUID) =
     secretUUID |> UUID.toText |> SQLText
 
+instance FromJSON RegistrationSecret
+
+data VerifyAccountRequest = VerifyAccountRequest
+  { verifyAccountRequestUsername :: Username
+  , verifyAccountRequestSecret :: RegistrationSecret
+  } deriving (Eq, Show)
+
+instance FromJSON VerifyAccountRequest where
+  parseJSON = withObject "VerifyAccountRequest" $ \x -> do
+    verifyAccountRequestUsername <- x .: "username"
+    verifyAccountRequestSecret   <- x .: "secret"
+    pure VerifyAccountRequest{..}
+
 data PendingAccount = PendingAccount
   { pendingAccountSecret :: RegistrationSecret
   , pendingAccountUsername :: Username