631e5c1 · typeable/pandoc

git.iko.soy/typeable/pandoc

pandoc: Set readerExtensions instead of readerStrict.

commit631e5c16fc00ed5f08b4c1152c02f69c4f8411e1 authorJohn MacFarlane <fiddlosopher@gmail.com> dateThu 26 Jul 2012, 18:56 (14 years ago) parentf4c7ad6

2 files changed+8−3

unifiedsplit

src/Text/Pandoc/Options.hs+3−2

@@ -38,10 +38,11 @@ import Data.Default

3838

3939-- | Individually selectable syntax extensions.

4040data Extension = Footnotes

41− | TeX_math

41+ | Tex_math

4242 | Delimited_code_blocks

43− | Markdown_in_HTML_blocks

43+ | Markdown_in_html_blocks

4444 | Fancy_lists

45+ | Startnum

4546 | Definition_lists

4647 | Header_identifiers

4748 | All_symbols_escapable

src/pandoc.hs+5−1

@@ -58,6 +58,7 @@ import Network.HTTP (simpleHTTP, mkRequest, getResponseBody, RequestMethod(..))

5858import Network.URI (parseURI, isURI, URI(..))

5959import qualified Data.ByteString.Lazy as B

6060import Data.ByteString.Lazy.UTF8 (toString)

61+import qualified Data.Set as Set

6162import Text.CSL.Reference (Reference(..))

6263#if MIN_VERSION_base(4,4,0)

6364#else

@@ -936,7 +937,10 @@ main = do

936937 then "."

937938 else takeDirectory (head sources)

938939

939− let readerOpts = def{ readerStrict = strict

940+ let readerOpts = def{ readerExtensions =

941+ if strict

942+ then Set.empty

943+ else Set.fromList [minBound..maxBound]

940944 , readerSmart = smart || (texLigatures &&

941945 (laTeXOutput || writerName' == "context"))

942946 , readerStandalone = standalone'