631e5c1 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

pandoc: Set readerExtensions instead of readerStrict.

631e5c1John MacFarlane14 years ago

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

compare with master

unifiedsplit

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

39-- | Individually selectable syntax extensions.

40data Extension = Footnotes

41− | TeX_math

41+ | Tex_math

42 | Delimited_code_blocks

43− | Markdown_in_HTML_blocks

43+ | Markdown_in_html_blocks

44 | Fancy_lists

45+ | Startnum

45 | Definition_lists

46 | Definition_lists

46 | Header_identifiers

47 | Header_identifiers

47 | All_symbols_escapable

48 | All_symbols_escapable

src/pandoc.hs+5−1

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

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

59import qualified Data.ByteString.Lazy as B

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

61+import qualified Data.Set as Set

61import Text.CSL.Reference (Reference(..))

62import Text.CSL.Reference (Reference(..))

62#if MIN_VERSION_base(4,4,0)

63#if MIN_VERSION_base(4,4,0)

63#else

64#else

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

936 then "."

937 then "."

937 else takeDirectory (head sources)

938 else takeDirectory (head sources)

938

939

939− let readerOpts = def{ readerStrict = strict

940+ let readerOpts = def{ readerExtensions =

941+ if strict

942+ then Set.empty

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

940 , readerSmart = smart || (texLigatures &&

944 , readerSmart = smart || (texLigatures &&

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

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

942 , readerStandalone = standalone'

946 , readerStandalone = standalone'