userClaimCommentDB :: UserId -> CommentId -> Maybe Text -> SDB ()
userClaimCommentDB user_id comment_id mnote = do
    now <- liftIO getCurrentTime

    let ticket_claiming = TicketClaiming now user_id comment_id mnote

    ticket_claiming_id <- lift $ insert ticket_claiming
    tell [ETicketClaimed (Left (ticket_claiming_id, ticket_claiming))]
userClaimCommentDB :: UserId -> CommentId -> Maybe Text -> SDB ()
userClaimCommentDB user_id comment_id mnote = do
    now <- liftIO getCurrentTime

    let ticket_claiming = TicketClaiming now user_id comment_id mnote

    ticket_claiming_id <- lift $ insert ticket_claiming
    tell [ETicketClaimed (Left (ticket_claiming_id, ticket_claiming))]
userClaimCommentDB user_id comment_id mnote = do
    now <- liftIO getCurrentTime

    let ticket_claiming = TicketClaiming now user_id comment_id mnote

    ticket_claiming_id <- lift $ insert ticket_claiming
    tell [ETicketClaimed (Left (ticket_claiming_id, ticket_claiming))]