From bc91e4a8efd99259b49f94c7e2d26294da7eb6d9 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 18 Oct 2022 21:59:22 -0700 Subject: T.P.Citeproc.Locator: remove unnecessary import of Text.Parsec. --- src/Text/Pandoc/Citeproc/Locator.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/Text/Pandoc/Citeproc/Locator.hs b/src/Text/Pandoc/Citeproc/Locator.hs index 8f2d0a4b7..ee5459e3d 100644 --- a/src/Text/Pandoc/Citeproc/Locator.hs +++ b/src/Text/Pandoc/Citeproc/Locator.hs @@ -12,9 +12,8 @@ import Text.Pandoc.Citeproc.Util (splitStrWhen) import Data.Text (Text) import qualified Data.Text as T import Data.List (foldl') -import Text.Parsec import Text.Pandoc.Definition -import Text.Pandoc.Parsing (romanNumeral) +import Text.Pandoc.Parsing import Text.Pandoc.Shared (stringify) import Control.Monad (mzero) import qualified Data.Map as M @@ -170,7 +169,7 @@ pBalancedBraces braces p = try $ do isc c = stringify <$> pMatchChar [c] (== c) sur c c' m = try $ do - (d, mid) <- between (isc c) (isc c') (option (False, "") m) + (d, mid) <- isc c *> option (False, "") m <* isc c' return (d, T.cons c . flip T.snoc c' $ mid) flattened = concatMap (\(o, c) -> [o, c]) braces -- cgit v1.2.3