diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-07-25 11:51:33 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-07-25 11:51:33 -0700 |
| commit | 0d4424c21c7d3d6da068a77750db72f61ff0e0cd (patch) | |
| tree | 2492093e03ec835f9e3b4008893a5446f8e84d64 /src/Text/Pandoc/Parsing.hs | |
| parent | ef0619cc6d576061ba7e93b7ecf16f72021c6f68 (diff) | |
Moved stateColumns to readerColumns in ReaderOptions.
Diffstat (limited to 'src/Text/Pandoc/Parsing.hs')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 5dc1d5012..2d7c4eb81 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -545,7 +545,7 @@ tableWith headerParser rowParser lineParser footerParser = try $ do lines' <- rowParser indices `sepEndBy1` lineParser footerParser state <- getState - let numColumns = stateColumns state + numColumns <- getOption readerColumns let widths = if (indices == []) then replicate (length aligns) 0.0 else widthsFromIndices numColumns indices @@ -705,7 +705,6 @@ data ParserState = ParserState -- in parsing dashes; -- is em-dash; -- before numeral is en-dash stateLiterateHaskell :: Bool, -- ^ Treat input as literate haskell - stateColumns :: Int, -- ^ Number of columns in terminal stateHeaderTable :: [HeaderType], -- ^ Ordered list of header types used stateIndentedCodeClasses :: [String], -- ^ Classes to use for indented code blocks stateNextExample :: Int, -- ^ Number of next example @@ -737,7 +736,6 @@ defaultParserState = stateDate = [], stateOldDashes = False, stateLiterateHaskell = False, - stateColumns = 80, stateHeaderTable = [], stateIndentedCodeClasses = [], stateNextExample = 1, |