summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbuild/extract-title.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/build/extract-title.hs b/build/extract-title.hs
index 4582657..6964d26 100755
--- a/build/extract-title.hs
+++ b/build/extract-title.hs
@@ -10,7 +10,7 @@ import qualified Data.Aeson as A
10import qualified Data.ByteString.Lazy as BL 10import qualified Data.ByteString.Lazy as BL
11 11
12extract_title :: Pandoc -> String 12extract_title :: Pandoc -> String
13extract_title d@(Pandoc m _) = do 13extract_title (Pandoc m _) = do
14 title <- render Nothing $ cat $ map pretty (docTitle m) 14 title <- render Nothing $ cat $ map pretty (docTitle m)
15 return title 15 return title
16 where pretty :: Inline -> Doc 16 where pretty :: Inline -> Doc