@@ -192,8 +192,12 @@ register creation' = do
192192 let token = genToken uId
193193 createToken token
194194 return token
195− let cookie = generateCookie token
196− return $ addHeader cookie NoContent
195+ case tokenVerificationCode token of
196+ Just code -> do
197+ sendTokenVerificationEmail code (userCreationUserEmail creation)
198+ let cookie = generateCookie token
199+ return $ addHeader cookie NoContent
200+ Nothing -> throwError err500
197201
198202normalizaUser :: UserCreation -> UserCreation
199203normalizaUser (UserCreation fName mName lName faculty email) =
@@ -201,7 +205,7 @@ normalizaUser (UserCreation fName mName lName faculty email) =
201205 (T.strip fName)
202206 (T.strip mName)
203207 (T.strip lName)
204− (T.strip faculty)
208+ (T.toLower . T.strip $ faculty)
205209 (T.toLower . T.strip $ email)
206210
207211validateUser :: UserCreation -> Bool