aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2012-03-20 15:54:01 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2012-03-20 15:54:01 -0700
commitb1bf8babae3ef600efa513a452e2d55fdccc5e5c (patch)
tree0bfc1787627c672b96838f39c06a55f2053a6877 /src/Text/Pandoc
parent29c8f1554b412a46bee83e224b72e5931f172cb9 (diff)
parentd74f3e1f2880ca6b9b7346e984fbd13aa037a0a2 (diff)
downloadpandoc-b1bf8babae3ef600efa513a452e2d55fdccc5e5c.tar.gz
Merge pull request #452 from wangp/master
Texinfo writer: retain directories in image paths.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/Texinfo.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Texinfo.hs b/src/Text/Pandoc/Writers/Texinfo.hs
index 563ad7044..45e4c439f 100644
--- a/src/Text/Pandoc/Writers/Texinfo.hs
+++ b/src/Text/Pandoc/Writers/Texinfo.hs
@@ -415,7 +415,7 @@ inlineToTexinfo (Image alternate (source, _)) = do
text (ext ++ "}")
where
ext = drop 1 $ takeExtension source'
- base = takeBaseName source'
+ base = dropExtension source'
source' = if isAbsoluteURI source
then source
else unEscapeString source