diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-04-08 14:33:47 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-04-08 14:33:47 +0200 |
| commit | cda13dc8ec8c2781a830ec68dbf09be9a3189e58 (patch) | |
| tree | 383f5519529fbe79b4fbd39a3225c74ef5284d17 /build/extract-title.hs | |
| parent | 09ff17ff426ea228054bf2e1c981c3e0c38f6a04 (diff) | |
| download | dirty-haskell.org-cda13dc8ec8c2781a830ec68dbf09be9a3189e58.tar dirty-haskell.org-cda13dc8ec8c2781a830ec68dbf09be9a3189e58.tar.gz dirty-haskell.org-cda13dc8ec8c2781a830ec68dbf09be9a3189e58.tar.bz2 dirty-haskell.org-cda13dc8ec8c2781a830ec68dbf09be9a3189e58.tar.xz dirty-haskell.org-cda13dc8ec8c2781a830ec68dbf09be9a3189e58.zip | |
Minor code cleanup
Diffstat (limited to 'build/extract-title.hs')
| -rwxr-xr-x | build/extract-title.hs | 2 |
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 | |||
| 10 | import qualified Data.ByteString.Lazy as BL | 10 | import qualified Data.ByteString.Lazy as BL |
| 11 | 11 | ||
| 12 | extract_title :: Pandoc -> String | 12 | extract_title :: Pandoc -> String |
| 13 | extract_title d@(Pandoc m _) = do | 13 | extract_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 |