diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2021-03-09 21:15:16 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2021-03-09 21:16:11 +0100 |
| commit | d7f8fbf04b3d58b6b10d1a8db32c3c7e50b614c1 (patch) | |
| tree | 10f48eff424c942b40c116a694adcbd7ec983885 /src/Text/Pandoc/Writers/Org.hs | |
| parent | b9b2586ed3e9aac9c5ba86127fbf984fb3149844 (diff) | |
| download | pandoc-d7f8fbf04b3d58b6b10d1a8db32c3c7e50b614c1.tar.gz | |
Org writer: fix operator precedence mistake in previous commit
Diffstat (limited to 'src/Text/Pandoc/Writers/Org.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 3 |
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. |