diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-01-23 00:06:04 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:43 +0100 |
| commit | 70b86f48e1cd11b2c861951ec0a121fa5a54f889 (patch) | |
| tree | 4b171d1fd3fd8aa3fde364ec3d6ae4336bb29f8b /src/Text/Pandoc/Readers/Haddock.hs | |
| parent | bc7e846da61bdcd3ce6ef49e9d3e6bf4a0bd1a5d (diff) | |
| download | pandoc-70b86f48e1cd11b2c861951ec0a121fa5a54f889.tar.gz | |
Removed readerVerbosity and writerVerbosity.
API change.
Also added a verbosity parameter to makePDF.
Diffstat (limited to 'src/Text/Pandoc/Readers/Haddock.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Haddock.hs | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Readers/Haddock.hs b/src/Text/Pandoc/Readers/Haddock.hs index 575d99c77..310a04574 100644 --- a/src/Text/Pandoc/Readers/Haddock.hs +++ b/src/Text/Pandoc/Readers/Haddock.hs @@ -24,7 +24,6 @@ import Text.Pandoc.Definition import Text.Pandoc.Options import Documentation.Haddock.Parser import Documentation.Haddock.Types -import Debug.Trace (trace) import Text.Pandoc.Error import Control.Monad.Except (throwError) import Text.Pandoc.Class (PandocMonad) @@ -42,15 +41,12 @@ readHaddock opts s = case readHaddockEither opts s of readHaddockEither :: ReaderOptions -- ^ Reader options -> String -- ^ String to parse -> Either PandocError Pandoc -readHaddockEither opts = +readHaddockEither _opts = #if MIN_VERSION_haddock_library(1,2,0) - Right . B.doc . docHToBlocks . trace' . _doc . parseParas + Right . B.doc . docHToBlocks . _doc . parseParas #else - Right . B.doc . docHToBlocks . trace' . parseParas + Right . B.doc . docHToBlocks . parseParas #endif - where trace' x = if readerVerbosity opts == DEBUG - then trace (show x) x - else x docHToBlocks :: DocH String Identifier -> Blocks docHToBlocks d' = |