aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-05-27 14:16:37 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2021-05-27 14:16:37 -0700
commit4b16d181e7219ed161a0e03c0c5ee9dec4b526b4 (patch)
tree8230559cd15e0966fb29de92798259a41393b0bf /src/Text/Pandoc/Readers
parent0661ce699fe83c64dd5a5874e8ab17241b19550c (diff)
downloadpandoc-4b16d181e7219ed161a0e03c0c5ee9dec4b526b4.tar.gz
rebase_relative_paths: leave empty paths unchanged.
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 74f2668e4..bc5e3e30f 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1924,7 +1924,7 @@ rebasePath :: SourcePos -> Text -> Text
rebasePath pos path = do
let fp = sourceName pos
isFragment = T.take 1 path == "#"
- in if isFragment || isAbsolute (T.unpack path) || isURI path
+ in if T.null path || isFragment || isAbsolute (T.unpack path) || isURI path
then path
else
case takeDirectory fp of