mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-10-05 23:07:57 +00:00
sh
b1dc25dc3e
* core: cancel the chat callback on interrupt * badges: add multi-use codes * badges: add the managed group * badges: document multi-use codes and the group * core: sign test badges with whole-second expiry * badges: rework tracker and reply texts
41 lines
1.5 KiB
Haskell
41 lines
1.5 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE TupleSections #-}
|
|
|
|
module BadgeService.Codes
|
|
( issueOneCode,
|
|
issueFailedText,
|
|
revokeBadgeCode,
|
|
singleUse,
|
|
)
|
|
where
|
|
|
|
import BadgeService.Store (RevokeResult, insertBadgeCode, revokeCode)
|
|
import BadgeService.Store.Invoices (truncateToSecond)
|
|
import Data.Int (Int64)
|
|
import Data.Text (Text)
|
|
import Data.Time.Clock (getCurrentTime)
|
|
import Simplex.Chat.Badges (BadgeType)
|
|
import Simplex.Chat.Badges.Code (BadgeCode, badgeCodeHash, randomBadgeCode)
|
|
import Simplex.Chat.Badges.Types (BadgeCodePaymentStatus)
|
|
import Simplex.Chat.Bot.Store (withDB')
|
|
import Simplex.Chat.Controller (ChatController (..))
|
|
|
|
singleUse :: Int
|
|
singleUse = 1
|
|
|
|
revokeBadgeCode :: ChatController -> BadgeCode -> IO (Either String RevokeResult)
|
|
revokeBadgeCode cc code = do
|
|
now <- truncateToSecond <$> getCurrentTime
|
|
withDB' "revokeBadgeCode" cc $ \db -> revokeCode db (badgeCodeHash code) now
|
|
|
|
-- | The group is joined through a bearer link, so this reply names no database error.
|
|
issueFailedText :: Text
|
|
issueFailedText = "The code could not be issued."
|
|
|
|
-- | The code table keeps only the hash, so the caller must deliver the code.
|
|
issueOneCode :: ChatController -> BadgeType -> Int -> BadgeCodePaymentStatus -> Int -> IO (Either String (BadgeCode, Int64))
|
|
issueOneCode cc badgeType months paymentStatus redeemLimit = do
|
|
code <- randomBadgeCode $ random cc
|
|
now <- truncateToSecond <$> getCurrentTime
|
|
fmap (code,) <$> withDB' "issueBadgeCode" cc (\db -> insertBadgeCode db (badgeCodeHash code) badgeType months paymentStatus redeemLimit now)
|