chore(email): set name for pdf file attachment

2022-07-28 16:58:52 +02:00 · 2022-07-28 16:58:52 +02:00 · 7a532e9778
commit 7a532e9778
parent 1a67063ec3
1 changed files with 4 additions and 4 deletions
--- a/src/Jobs/Handler/SendNotification/Qualification.hs
+++ b/src/Jobs/Handler/SendNotification/Qualification.hs
@ -74,10 +74,10 @@ dispatchNotificationQualificationRenewal nQualification jRecipient = do
            $logErrorS "LMS" msg
            error $ unpack msg
          Right pdffile -> do
-            addPart (File { fileTitle = "Renewal Pin Letter"
-                         , fileModified = now
-                         , fileContent = Just $ yield $ LBS.toStrict pdffile
-                         } :: PureFile)
+            addPart (File { fileTitle = "RenewalPinLetter.pdf" -- TODO: better file title!
+                          , fileModified = now
+                          , fileContent = Just $ yield $ LBS.toStrict pdffile
+                          } :: PureFile)
            -- TODO: this is just a dummy to continue while i18nHamletFile usage is unclear
            addHtmlMarkdownAlternatives $(ihamletFile "templates/mail/qualificationRenewal.hamlet")