diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-06-19 00:28:23 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-06-19 00:28:23 -0700 |
| commit | 00281559bf9c955ece6b18d48ef487fdc5f4406e (patch) | |
| tree | 99be9840ce6f9bf1966bd702098874202281bcc4 /src | |
| parent | 95b6ffcef6428318dd9ca25be6ce6e113ef3c499 (diff) | |
| download | pandoc-00281559bf9c955ece6b18d48ef487fdc5f4406e.tar.gz | |
Haddock writer: Use _____ for hrule.
Avoids interpretation as list.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Haddock.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Haddock.hs b/src/Text/Pandoc/Writers/Haddock.hs index 59d979ea8..1c82839d0 100644 --- a/src/Text/Pandoc/Writers/Haddock.hs +++ b/src/Text/Pandoc/Writers/Haddock.hs @@ -112,8 +112,8 @@ blockToHaddock _ (RawBlock f str) | f == "haddock" = do return $ text str <> text "\n" | otherwise = return empty -blockToHaddock _ HorizontalRule = - return $ blankline <> text "--------------" <> blankline +blockToHaddock opts HorizontalRule = + return $ blankline <> text (replicate (writerColumns opts) '_') <> blankline blockToHaddock opts (Header level (ident,_,_) inlines) = do contents <- inlineListToHaddock opts inlines let attr' = if null ident |