From 7a532e977800fe1908371fe8ae93e622c033b8d7 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Thu, 28 Jul 2022 16:58:52 +0200
Subject: [PATCH] chore(email): set name for pdf file attachment

---
 src/Jobs/Handler/SendNotification/Qualification.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Jobs/Handler/SendNotification/Qualification.hs b/src/Jobs/Handler/SendNotification/Qualification.hs
index 01566ebdf..8de1e0254 100644
--- 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")