fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(pdf): embed din5008 templates within binary

Browse Source
This commit is contained in:
Steffen Jost 2022-06-17 12:20:42 +02:00
parent 9628cb5463
commit b76c414220
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Handler/Admin/Test.hs
View File

@ -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