chore(pdf): add initial test frame

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