diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2016-10-17 22:11:03 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2016-10-17 22:11:03 +0200 |
| commit | 1266b210ac51273cdfe2913fb1d710e1a20f5e9b (patch) | |
| tree | 639187068471e0717f574740d563cc7a46a3ec18 /src/Text | |
| parent | f407b66405d4619d99a877c8332a6458fb8a4bbe (diff) | |
| download | pandoc-1266b210ac51273cdfe2913fb1d710e1a20f5e9b.tar.gz | |
Org writer: drop space before footnote markers
The writer no longer adds an extra space before footnote markers.
Fixes: #3162
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index a74481171..18a820f2e 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -373,7 +373,7 @@ inlineToOrg (Note contents) = do notes <- get >>= (return . stNotes) modify $ \st -> st { stNotes = contents:notes } let ref = show $ (length notes) + 1 - return $ " [" <> text ref <> "]" + return $ "[" <> text ref <> "]" orgPath :: String -> String orgPath src = |