{-# LANGUAGE TemplateHaskell #-} module Wire.EmailSending where import Network.Mail.Mime (Mail) import Polysemy (makeSem) data EmailSending m r where SendMail :: Mail -> EmailSending m () makeSem ''EmailSending