From 4d01302a7fa847aa5ca0349ea259833a65e85f87 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 19 Oct 2022 09:38:45 -0700 Subject: Text.Pandoc.Shared: remove `elemText`, `notElemText`. [API change] --- src/Text/Pandoc/App/CommandLineOptions.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc/App/CommandLineOptions.hs') diff --git a/src/Text/Pandoc/App/CommandLineOptions.hs b/src/Text/Pandoc/App/CommandLineOptions.hs index 2acfba75f..fda83d7c6 100644 --- a/src/Text/Pandoc/App/CommandLineOptions.hs +++ b/src/Text/Pandoc/App/CommandLineOptions.hs @@ -50,7 +50,7 @@ import Text.Pandoc.App.Opt (Opt (..), LineEnding (..), IpynbOutput (..), fullDefaultsPath) import Text.Pandoc.Filter (Filter (..)) import Text.Pandoc.Highlighting (highlightingStyles, lookupHighlightingStyle) -import Text.Pandoc.Shared (ordNub, elemText, safeStrRead, defaultUserDataDir) +import Text.Pandoc.Shared (ordNub, safeStrRead, defaultUserDataDir) import Text.Printf import qualified Control.Exception as E import qualified Data.ByteString as BS @@ -1006,7 +1006,7 @@ writersNames = sort ("pdf" : map fst (writers :: [(Text, Writer PandocIO)])) splitField :: String -> (String, String) -splitField = second (tailDef "true") . break (`elemText` ":=") +splitField = second (tailDef "true") . break (\c -> c == ':' || c == '=') deprecatedOption :: String -> String -> IO () deprecatedOption o msg = -- cgit v1.2.3