aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorAlbert Krewinkel <albert@zeitkraut.de>2021-03-09 21:15:16 +0100
committerAlbert Krewinkel <albert@zeitkraut.de>2021-03-09 21:16:11 +0100
commitd7f8fbf04b3d58b6b10d1a8db32c3c7e50b614c1 (patch)
tree10f48eff424c942b40c116a694adcbd7ec983885 /src/Text
parentb9b2586ed3e9aac9c5ba86127fbf984fb3149844 (diff)
downloadpandoc-d7f8fbf04b3d58b6b10d1a8db32c3c7e50b614c1.tar.gz
Org writer: fix operator precedence mistake in previous commit
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/Org.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs
index 1b525831e..29d58a161 100644
--- a/src/Text/Pandoc/Writers/Org.hs
+++ b/src/Text/Pandoc/Writers/Org.hs
@@ -359,7 +359,8 @@ inlineListToOrg lst = hcat <$> mapM inlineToOrg (fixMarkers lst)
shouldFix Note{} = True -- Prevent footnotes
shouldFix (Str "-") = True -- Prevent bullet list items
shouldFix (Str x) -- Prevent ordered list items
- | Just (cs, c) <- T.unsnoc x = T.all isDigit cs && c == '.' || c == ')'
+ | Just (cs, c) <- T.unsnoc x = T.all isDigit cs &&
+ (c == '.' || c == ')')
shouldFix _ = False
-- | Convert Pandoc inline element to Org.