libtinfo5 nodejs npm netbase

    libtinfo5 nodejs npm netbase git

    InvitationCode (..),

    InvitationCode,

    pexec,

    pexec,

  uid <- pinsert
    UserId
    [sql| INSERT INTO users (handle, recovery_email, recovery_zaddr)

  uid <-
    pinsert
      UserId
      [sql| INSERT INTO users (handle, recovery_email, recovery_zaddr)

    ( user' ^. (username . _UserName),
      user' ^? userAccountRecovery . _RecoverByEmail . _Email,
      user' ^? userAccountRecovery . _RecoverByZAddr . Zcash._Address
    )

      ( user' ^. (username . _UserName),
        user' ^? userAccountRecovery . _RecoverByEmail . _Email,
        user' ^? userAccountRecovery . _RecoverByZAddr . Zcash._Address
      )

  void $ pexec
    [sql| INSERT INTO cryptocurrency_accounts (user_id, is_primary, zcash_addr)

  void $
    pexec
      [sql| INSERT INTO cryptocurrency_accounts (user_id, is_primary, zcash_addr)

    ( uid ^. _UserId,
      True,
      addr ^. Zcash._Address
    )

      ( uid ^. _UserId,
        True,
        addr ^. Zcash._Address
      )

module Aftok.Project where

module Aftok.Project
  ( Project (..),
    ProjectName,
    projectName,
    inceptionDate,
    initiator,
    depRules,
    InvitationCode,
    randomInvCode,
    parseInvCode,
    renderInvCode,
    Invitation (..),
    projectId,
    invitingUser,
    invitedEmail,
    invitationTime,
    acceptanceTime,
  )
where

import qualified Data.ByteString as BS

randomInvCode = InvitationCode <$> getRandomBytes 32

randomInvCode = InvitationCode <$> getRandomBytes 12

parseInvCode t = do
  code <- B64.decodeBase64 . encodeUtf8 $ t
  if BS.length code == 32
    then Right $ InvitationCode code
    else Left "Invitation code appears to be invalid."

parseInvCode t =
  InvitationCode <$> (B64.decodeBase64 . encodeUtf8 $ t)

renderInvCode (InvitationCode bs) = B64.encodeBase64 bs

renderInvCode (InvitationCode bs) = B64.encodeBase64Unpadded bs