@@ -896,8 +896,10 @@ getFacultyFromQuery query =
896896createToken :: Token -> StaticPQ ()
897897createToken token = void $ manipulateParams createTokenQ token
898898
899+
900+-- NOTE: Not transactional
899901validateToken :: Token -> StaticPQ ()
900−validateToken token = commitedTransactionallyUpdate $ do
902+validateToken token = do
901903 void $ manipulateParams updateTokenQ token{tokenVerificationCode = Nothing}
902904 void $ manipulateParams validateUserQ $ Only $ tokenUserId token
903905