diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-05-21 08:59:06 +0200 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-05-21 09:02:01 +0200 |
commit | 8c1b81bbef7125a9a2fde9d6894578f06bf4cedd (patch) | |
tree | 869b778f2f0b840b71a1056f427cd6690d2fc6d4 /src/Text/Pandoc/Readers | |
parent | 6a7f980247bd2e3fcb7b977edbbcd1fc17758074 (diff) | |
download | pandoc-8c1b81bbef7125a9a2fde9d6894578f06bf4cedd.tar.gz |
Finished implemtation of `--resource-path`.
* Default is just working directory.
* Working directory must be explicitly specifide if
`--resource-path` option is used.
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 30c788666..84758d309 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -46,7 +46,7 @@ import Safe (minimumDef) import System.FilePath (addExtension, replaceExtension, takeExtension) import Text.Pandoc.Builder import Text.Pandoc.Class (PandocMonad, PandocPure, lookupEnv, readFileFromDirs, - report, setResourcePath) + report, setResourcePath, getResourcePath) import Text.Pandoc.Highlighting (fromListingsLanguage, languagesByExtension) import Text.Pandoc.ImageSize (numUnit, showFl) import Text.Pandoc.Logging @@ -417,7 +417,7 @@ blockCommands = M.fromList $ graphicsPath :: PandocMonad m => LP m Blocks graphicsPath = do ps <- bgroup *> (manyTill braced egroup) - setResourcePath (".":ps) + getResourcePath >>= setResourcePath . (++ ps) return mempty addMeta :: PandocMonad m => ToMetaValue a => String -> a -> LP m () |