From d056680ca54b766b25635cf6afb7d305370209dd Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 12 Mar 2015 16:22:27 +0000 Subject: More -changes- dirty hacks for cabal sandboxing --- build/extract-title.hs | 2 +- build/tex-filter.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'build') 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 "%s" svg_web_path alignment tex texify :: [String] -> Inline -> IO Inline -- cgit v1.2.3