{-# LANGUAGE UndecidableInstances #-}
{-# LANGUAGE NoFieldSelectors #-}

module WikiMusic.Interaction.Mail (sendMailAction) where

import WikiMusic.Free.MailCommand
import WikiMusic.Model.Mail
import WikiMusic.Protolude

sendMailAction ::
  (MailCommand :<: f) =>
  Env ->
  MailSendRequest ->
  Free f (Either MailCommandError MailCommandOutcome)
sendMailAction :: forall (f :: * -> *).
(MailCommand :<: f) =>
Env
-> MailSendRequest
-> Free f (Either MailCommandError MailCommandOutcome)
sendMailAction = Env
-> MailSendRequest
-> Free f (Either MailCommandError MailCommandOutcome)
forall (f :: * -> *).
(MailCommand :<: f) =>
Env
-> MailSendRequest
-> Free f (Either MailCommandError MailCommandOutcome)
sendMail