From 9a432746fc2122c89226e7faf5f528cc6d09f391 Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Fri, 20 May 2022 16:28:35 +0200
Subject: [PATCH] chore(pdf): add initial test frame

---
 src/Handler/Admin/Test.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/src/Handler/Admin/Test.hs b/src/Handler/Admin/Test.hs
index 26a3dfbb5..d4b8aec7f 100644
--- a/src/Handler/Admin/Test.hs
+++ b/src/Handler/Admin/Test.hs
@@ -264,3 +264,19 @@ postAdminTestR = do
     |]
 
     i18n $ MsgPrintDebugForStupid "DebugForStupid"
+
+
+
+
+getPDFTestR :: Handler TypedContent
+getPDFTestR = do
+  let 
+    writer     = error "todo"
+    writeropts = error "todo"
+    doc        = error "todo"
+  doc <- liftIO makePDF "pdflatex" writer writeropts doc 
+  case doc of 
+    Left  bs -> 
+      return $ TypedContent typeOctet $ toContent bs
+    Right bs ->
+      return $ TypedContent typeOctet $ toContent bs
\ No newline at end of file