diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-10-19 09:38:45 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-10-19 09:38:45 -0700 |
| commit | 4d01302a7fa847aa5ca0349ea259833a65e85f87 (patch) | |
| tree | 0bda969e3edb374d31b46b270fd113611fa3bed0 /src/Text/Pandoc/Writers/Org.hs | |
| parent | fde8635a181a6ed0cec2a1756fc3e35fee39d29d (diff) | |
Text.Pandoc.Shared: remove `elemText`, `notElemText`. [API change]
Diffstat (limited to 'src/Text/Pandoc/Writers/Org.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index 30d892365..24632109b 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -514,8 +514,8 @@ orgPath src = case T.uncons src of isUrl :: Text -> Bool isUrl cs = let (scheme, path) = T.break (== ':') cs - in T.all (\c -> isAlphaNum c || c `elemText` ".-") scheme - && not (T.null path) + in T.all (\c -> isAlphaNum c || T.any (== c) ".-") scheme + && not (T.null path) -- | Translate from pandoc's programming language identifiers to those used by -- org-mode. |