diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-02-10 23:59:47 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-11 00:14:44 +0100 |
| commit | 76c55466d3087224eccdc47c804ab2904be50df5 (patch) | |
| tree | 8e605c9a6ab89569d8b51898f31487ac0c005a22 /src/Text/Pandoc/App.hs | |
| parent | 8ad7e2c21fd00d8225c5f243bf3383c956b6c83b (diff) | |
| download | pandoc-76c55466d3087224eccdc47c804ab2904be50df5.tar.gz | |
Use new warnings throughout the code base.
Diffstat (limited to 'src/Text/Pandoc/App.hs')
| -rw-r--r-- | src/Text/Pandoc/App.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs index e99767f0b..91d0711c1 100644 --- a/src/Text/Pandoc/App.hs +++ b/src/Text/Pandoc/App.hs @@ -348,8 +348,7 @@ convertWithOpts opts = do x <- f rs <- getLog return (x, rs) - let isWarning (WARNING, _) = True - isWarning _ = False + let isWarning msg = messageVerbosity msg == WARNING when (optFailIfWarnings opts && any isWarning reports) $ err 3 "Failing because there were warnings." return res |