From 631e5c16fc00ed5f08b4c1152c02f69c4f8411e1 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Thu, 26 Jul 2012 18:56:19 -0700
Subject: pandoc:  Set readerExtensions instead of readerStrict.

---
 src/pandoc.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/pandoc.hs')

diff --git a/src/pandoc.hs b/src/pandoc.hs
index d889913d2..196e1a146 100644
--- a/src/pandoc.hs
+++ b/src/pandoc.hs
@@ -58,6 +58,7 @@ import Network.HTTP (simpleHTTP, mkRequest, getResponseBody, RequestMethod(..))
 import Network.URI (parseURI, isURI, URI(..))
 import qualified Data.ByteString.Lazy as B
 import Data.ByteString.Lazy.UTF8 (toString)
+import qualified Data.Set as Set
 import Text.CSL.Reference (Reference(..))
 #if MIN_VERSION_base(4,4,0)
 #else
@@ -936,7 +937,10 @@ main = do
                      then "."
                      else takeDirectory (head sources)
 
-  let readerOpts = def{ readerStrict = strict
+  let readerOpts = def{ readerExtensions =
+                           if strict
+                           then Set.empty
+                           else Set.fromList [minBound..maxBound]
                       , readerSmart = smart || (texLigatures &&
                           (laTeXOutput || writerName' == "context"))
                       , readerStandalone = standalone'
-- 
cgit v1.2.3