shomei-core-0.2.0.0: src/Shomei/Account/Verification/Domain.hs

-- | Email-verification token rows.
module Shomei.Account.Verification.Domain
  ( PersistedVerificationToken (..),
    NewVerificationToken (..),
  )
where

import Shomei.Account.OneTimeToken.Domain (OneTimeTokenHash, OneTimeTokenStatus)
import Shomei.Id (UserId, VerificationTokenId)
import Shomei.Prelude

data PersistedVerificationToken = PersistedVerificationToken
  { verificationTokenId :: !VerificationTokenId,
    userId :: !UserId,
    tokenHash :: !OneTimeTokenHash,
    status :: !OneTimeTokenStatus,
    createdAt :: !UTCTime,
    expiresAt :: !UTCTime,
    consumedAt :: !(Maybe UTCTime),
    revokedAt :: !(Maybe UTCTime)
  }
  deriving stock (Generic, Eq, Show)
  deriving anyclass (FromJSON, ToJSON)

data NewVerificationToken = NewVerificationToken
  { userId :: !UserId,
    tokenHash :: !OneTimeTokenHash,
    createdAt :: !UTCTime,
    expiresAt :: !UTCTime
  }
  deriving stock (Generic, Eq, Show)
  deriving anyclass (FromJSON, ToJSON)