More -changes- dirty hacks for cabal sandboxing

2 files changed, 2 insertions, 2 deletions

diff --git a/build/extract-title.hs b/build/extract-title.hs
index f3ca1ba..a84442e 100755
--- a/build/extract-title.hs
+++ b/build/extract-title.hs
@@ -5,7 +5,7 @@ import Text.Pandoc.JSON
 import System.IO
 
 extract_title :: Pandoc -> IO Pandoc
-extract_title d@(Pandoc m _) = do hPutStrLn stderr $ render Nothing $ cat $ map pretty (docTitle m)
+extract_title d@(Pandoc m _) = do hPutStrLn stderr $ (++) "title: " $ render Nothing $ cat $ map pretty (docTitle m)
                                   return d
   where pretty :: Inline -> Doc
         pretty (Str s) = text s
diff --git a/build/tex-filter.hs b/build/tex-filter.hs
index 5d11f07..1e2face 100755
--- a/build/tex-filter.hs
+++ b/build/tex-filter.hs
@@ -47,7 +47,7 @@ compileToSVG basepath t s = let tex = Data.Text.unpack $ Data.Text.strip $ Data.
                                     (do writeFile expr_path $ (display t) ++ tex
                                         writeFile align_path "0")
                                   alignment <- head.lines <$> readFile align_path
-                                  SIO.hPutStrLn SIO.stderr path
+                                  SIO.hPutStrLn SIO.stdout path
                                   return $ printf "<object data=\"/%s\" type=\"image/svg+xml\" style=\"vertical-align:-%s\">%s</object>" svg_web_path alignment tex
 
 texify :: [String] -> Inline -> IO Inline