28 lines
753 B
Haskell
28 lines
753 B
Haskell
module Jobs.Handler.SendTestEmail
|
|
( dispatchJobSendTestEmail
|
|
) where
|
|
|
|
import Import
|
|
|
|
import Handler.Utils.DateTime
|
|
|
|
import Text.Shakespeare.Text
|
|
|
|
dispatchJobSendTestEmail :: Email -> MailContext -> Handler ()
|
|
dispatchJobSendTestEmail jEmail jMailContext = mailT jMailContext $ do
|
|
_mailTo .= [Address Nothing jEmail]
|
|
replaceMailHeader "Auto-Submitted" $ Just "auto-generated"
|
|
setSubjectI MsgMailTestSubject
|
|
now <- liftIO getCurrentTime
|
|
nDT <- formatTimeMail SelFormatDateTime now
|
|
nD <- formatTimeMail SelFormatDate now
|
|
nT <- formatTimeMail SelFormatTime now
|
|
addPart $ \(MsgRenderer mr) -> [text|
|
|
#{mr MsgMailTestContent}
|
|
|
|
#{mr MsgMailTestDateTime}
|
|
* #{nDT}
|
|
* #{nD}
|
|
* #{nT}
|
|
|] :: TextUrl (Route UniWorX)
|