diff options
author | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-19 19:23:30 +0300 |
---|---|---|
committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-02-19 19:23:30 +0300 |
commit | 5a9d7d20ddeebc164acdbb3b318df298417ad1ab (patch) | |
tree | 504c72f28f433bcd18ce2c2bd810daf8d16cc410 /src/Text/Pandoc/Readers/Txt2Tags.hs | |
parent | 574104861f13997effb36f8e3483dfd7c7d01cd7 (diff) | |
download | pandoc-5a9d7d20ddeebc164acdbb3b318df298417ad1ab.tar.gz |
Move manyUntil to Text.Pandoc.Parsing and use it in Txt2Tags reader
Diffstat (limited to 'src/Text/Pandoc/Readers/Txt2Tags.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Txt2Tags.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Txt2Tags.hs b/src/Text/Pandoc/Readers/Txt2Tags.hs index b4f4bc564..f4dda7a11 100644 --- a/src/Text/Pandoc/Readers/Txt2Tags.hs +++ b/src/Text/Pandoc/Readers/Txt2Tags.hs @@ -529,8 +529,7 @@ image = try $ do -- List taken from txt2tags source let extensions = [".jpg", ".jpeg", ".gif", ".png", ".eps", ".bmp"] char '[' - path <- manyTill (noneOf "\n\t\r ") (try $ lookAhead (oneOfStrings extensions)) - ext <- oneOfStrings extensions + (path, ext) <- manyUntil (noneOf "\n\t\r ") (oneOfStrings extensions) char ']' return $ B.image (path ++ ext) "" mempty |