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