module Mail.Hailgun.Attachment
( createAttachment
, createAttachmentLazy
, addAttachment
)
where
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import Data.Monoid
import Mail.Hailgun.Attachment.Internal
import Mail.Hailgun.Internal.Data
createAttachment :: FilePath -> B.ByteString -> Attachment
createAttachment filename body = Attachment filename (AttachmentBS body)
createAttachmentLazy :: FilePath -> BL.ByteString -> Attachment
createAttachmentLazy filename body = Attachment filename (AttachmentLBS body)
addAttachment :: Attachment -> Endo HailgunMessage
addAttachment attachment = Endo $ \message -> message
{ messageAttachments = (toStandardAttachment . cleanAttachmentFilePath $ attachment) : messageAttachments message
}