diff options
Diffstat (limited to 'src/Text/Pandoc/Class.hs')
-rw-r--r-- | src/Text/Pandoc/Class.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs index 432a607db..b053e9063 100644 --- a/src/Text/Pandoc/Class.hs +++ b/src/Text/Pandoc/Class.hs @@ -324,10 +324,7 @@ withPaths :: PandocMonad m => [FilePath] -> (FilePath -> m a) -> FilePath -> m a withPaths [] _ fp = throwError $ PandocIOError fp (userError "file not found in resource path") withPaths (p:ps) action fp = - catchError (do res <- action (p </> fp) - when (p /= ".") $ - report $ UsingResourceFrom fp p - return res) + catchError (action (p </> fp)) (\_ -> withPaths ps action fp) data PureState = PureState { stStdGen :: StdGen |