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