{-# LANGUAGE TemplateHaskell #-}

module Wire.BlockListStore where

import Imports
import Polysemy
import Wire.UserKeyStore

data BlockListStore m a where
  Insert :: EmailKey -> BlockListStore m ()
  Exists :: EmailKey -> BlockListStore m Bool
  Delete :: EmailKey -> BlockListStore m ()

makeSem ''BlockListStore