1 files changed, 1 insertions, 1 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