@@ -125,6 +125,8 @@ convertWithOpts opts = do
125125
126126 runIO' $ do
127127 setUserDataDir datadir
128+ setResourcePath (optResourcePath opts)
129+
128130 setInputFiles (fromMaybe ["-"] (optInputFiles opts))
129131 setOutputFile (optOutputFile opts)
130132
@@ -268,7 +270,6 @@ convertWithOpts opts = do
268270 writerName == "markdown_github") $
269271 report $ Deprecated "markdown_github" "Use gfm instead."
270272
271− setResourcePath (optResourcePath opts)
272273 mapM_ (uncurry setRequestHeader) (optRequestHeaders opts)
273274
274275 doc <- sourceToDoc sources >>=