@@ -125,6 +125,8 @@ convertWithOpts opts = do
126 runIO' $ do
126 runIO' $ do
127 setUserDataDir datadir
127 setUserDataDir datadir
128+ setResourcePath (optResourcePath opts)
128 setInputFiles (fromMaybe ["-"] (optInputFiles opts))
130 setInputFiles (fromMaybe ["-"] (optInputFiles opts))
129 setOutputFile (optOutputFile opts)
131 setOutputFile (optOutputFile opts)
@@ -268,7 +270,6 @@ convertWithOpts opts = do
268 writerName == "markdown_github") $
270 writerName == "markdown_github") $
269 report $ Deprecated "markdown_github" "Use gfm instead."
271 report $ Deprecated "markdown_github" "Use gfm instead."
271− setResourcePath (optResourcePath opts)
272 mapM_ (uncurry setRequestHeader) (optRequestHeaders opts)
273 mapM_ (uncurry setRequestHeader) (optRequestHeaders opts)
274 doc <- sourceToDoc sources >>=
275 doc <- sourceToDoc sources >>=