From b76c414220bd73ea8fb67b226a007cdcb0bbd4fc Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Fri, 17 Jun 2022 12:20:42 +0200 Subject: [PATCH] fix(pdf): embed din5008 templates within binary --- src/Handler/Admin/Test.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/src/Handler/Admin/Test.hs b/src/Handler/Admin/Test.hs index 9548fb76b..bc5368c76 100644 --- a/src/Handler/Admin/Test.hs +++ b/src/Handler/Admin/Test.hs @@ -4,13 +4,15 @@ module Handler.Admin.Test , getAdminTestPdfR ) where -import Import +import Import hiding (embedFile) +import Data.FileEmbed (embedFile) + import Handler.Utils import Jobs import Data.Char (isDigit) import qualified Data.Text as Text -import qualified Data.Text.IO as Text +-- import qualified Data.Text.IO as Text import qualified Data.ByteString.Lazy as L import qualified Data.Set as Set @@ -278,9 +280,10 @@ postAdminTestR = do getAdminTestPdfR :: Handler TypedContent getAdminTestPdfR = do templates <- liftIO $ do - letter_md <- Text.readFile "templates/letter/fraport_renewal.md" + let letter_md = decodeUtf8 $(Data.FileEmbed.embedFile "templates/letter/fraport_renewal.md") letter_tp <- P.compileTemplate "" letter_md - din5008 <- Text.readFile "templates/letter/din5008.latex" >>= P.compileTemplate "" + let din5008_tex = decodeUtf8 $(Data.FileEmbed.embedFile "templates/letter/din5008.latex") + din5008 <- P.compileTemplate "" din5008_tex now <- getCurrentTime return (now, letter_md, letter_tp, din5008) case templates of