{-# LANGUAGE TemplateHaskell #-}

module Wire.Events where

import Data.Id
import Imports
import Polysemy
import Wire.API.UserEvent

data Events m a where
  GenerateUserEvent :: UserId -> Maybe ConnId -> UserEvent -> Events m ()
  GeneratePropertyEvent :: UserId -> ConnId -> PropertyEvent -> Events m ()

makeSem ''Events