diff options
author | defanor <defanor@uberspace.net> | 2017-10-28 03:16:26 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-10-28 03:16:26 +0300 |
commit | d2da10d36b857e399e10388ddc6f66850211ec77 (patch) | |
tree | 40e98bcc17276200f98c5af7c0de2b64263b9bc9 /Text/Pandoc/Readers/Gopher.hs | |
parent | b52d2a395814158319a781d38a49bb0f132c221d (diff) |
Improve plaintext rendering
Reuse lineToInlines previously used for Gopher, and adjust fitLines.
Diffstat (limited to 'Text/Pandoc/Readers/Gopher.hs')
-rw-r--r-- | Text/Pandoc/Readers/Gopher.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/Text/Pandoc/Readers/Gopher.hs b/Text/Pandoc/Readers/Gopher.hs index 33dec3e..694720d 100644 --- a/Text/Pandoc/Readers/Gopher.hs +++ b/Text/Pandoc/Readers/Gopher.hs @@ -16,14 +16,8 @@ import Text.Pandoc.Definition import Text.Pandoc.Error import Text.Parsec import Text.Parsec.String +import Text.Pandoc.Readers.Plain --- | Translates a text line into a list of 'Inline' elements suitable --- for further processing. -lineToInlines :: String -> [Inline] -lineToInlines [] = [] -lineToInlines (' ':rest) = Space : lineToInlines rest -lineToInlines s = let (cur, next) = break (== ' ') s - in Str cur : lineToInlines next -- | UNASCII ::= ASCII - [Tab CR-LF NUL]. unascii :: Parser Char |