aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/App/CommandLineOptions.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <[email protected]>2022-10-19 09:38:45 -0700
committerJohn MacFarlane <[email protected]>2022-10-19 09:38:45 -0700
commit4d01302a7fa847aa5ca0349ea259833a65e85f87 (patch)
tree0bda969e3edb374d31b46b270fd113611fa3bed0 /src/Text/Pandoc/App/CommandLineOptions.hs
parentfde8635a181a6ed0cec2a1756fc3e35fee39d29d (diff)
Text.Pandoc.Shared: remove `elemText`, `notElemText`. [API change]
Diffstat (limited to 'src/Text/Pandoc/App/CommandLineOptions.hs')
-rw-r--r--src/Text/Pandoc/App/CommandLineOptions.hs4
1 files changed, 2 insertions, 2 deletions
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 =