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 , getAdminTestPdfR
) where ) where
import Import import Import hiding (embedFile)
import Data.FileEmbed (embedFile)
import Handler.Utils import Handler.Utils
import Jobs import Jobs
import Data.Char (isDigit) import Data.Char (isDigit)
import qualified Data.Text as Text 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.ByteString.Lazy as L
import qualified Data.Set as Set import qualified Data.Set as Set
@ -278,9 +280,10 @@ postAdminTestR = do
getAdminTestPdfR :: Handler TypedContent getAdminTestPdfR :: Handler TypedContent
getAdminTestPdfR = do getAdminTestPdfR = do
templates <- liftIO $ 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 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 now <- getCurrentTime
return (now, letter_md, letter_tp, din5008) return (now, letter_md, letter_tp, din5008)
case templates of case templates of