diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-02-24 14:29:56 +0100 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-24 14:29:56 +0100 |
commit | 72af7b4ee5802be3a08566be06acd3d1fa92a51f (patch) | |
tree | 820af029ac925d4b113af13bceadb41bdb11f864 /src/Text/Pandoc/Class.hs | |
parent | 887d0b70fe3c3fd8919c8ffcf52577ce42b4a92e (diff) | |
download | pandoc-72af7b4ee5802be3a08566be06acd3d1fa92a51f.tar.gz |
Shared: remove 'warn'.
PDF writer: Use 'report' instead of 'warn', make it sensitive
to verbosity settings.
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 |