From 5a9d7d20ddeebc164acdbb3b318df298417ad1ab Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Mon, 19 Feb 2018 19:23:30 +0300
Subject: Move manyUntil to Text.Pandoc.Parsing and use it in Txt2Tags reader

---
 src/Text/Pandoc/Readers/Muse.hs     | 14 --------------
 src/Text/Pandoc/Readers/Txt2Tags.hs |  3 +--
 2 files changed, 1 insertion(+), 16 deletions(-)

(limited to 'src/Text/Pandoc/Readers')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index a842925a2..2f20de1c9 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -189,20 +189,6 @@ atStart p = do
   guard $ museLastStrPos st /= Just pos
   p
 
--- Like manyTill, but also returns result of end parser
-manyUntil :: (Stream s m t)
-          => ParserT s u m a
-          -> ParserT s u m b
-          -> ParserT s u m ([a], b)
-manyUntil p end = scan
-  where scan =
-          (do e <- end
-              return ([], e)
-          ) <|>
-          (do x <- p
-              (xs, e) <- scan
-              return (x:xs, e))
-
 someUntil :: (Stream s m t)
           => ParserT s u m a
           -> ParserT s u m b
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
 
-- 
cgit v1.2.3