From 95570ba34c4e7675295b6eefcfcc4dac4ac720af Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Wed, 25 Jul 2012 12:37:04 -0700
Subject: Moved stateOldDashes to readerOldDashes in ReaderOptions.

---
 src/Text/Pandoc/Readers/Textile.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'src/Text/Pandoc/Readers/Textile.hs')

diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs
index 453fa5b4e..e4537f33d 100644
--- a/src/Text/Pandoc/Readers/Textile.hs
+++ b/src/Text/Pandoc/Readers/Textile.hs
@@ -71,7 +71,7 @@ readTextile :: ParserState -- ^ Parser state, including options for parser
              -> String      -- ^ String to parse (assuming @'\n'@ line endings)
              -> Pandoc
 readTextile state s =
-  (readWith parseTextile) state{ stateOldDashes = True } (s ++ "\n\n")
+  (readWith parseTextile) state (s ++ "\n\n")
 
 
 -- | Generate a Pandoc ADT from a textile document
@@ -79,9 +79,11 @@ parseTextile :: Parser [Char] ParserState Pandoc
 parseTextile = do
   -- textile allows raw HTML and does smart punctuation by default
   oldOpts <- stateOptions `fmap` getState
-  updateState $ \state -> state{ stateOptions = oldOpts{ readerSmart = True
-                                                       , readerParseRaw = True
-                                                       } }
+  updateState $ \state -> state{ stateOptions =
+                                   oldOpts{ readerSmart = True
+                                          , readerParseRaw = True
+                                          , readerOldDashes = True
+                                          } }
   many blankline
   startPos <- getPosition
   -- go through once just to get list of reference keys and notes
-- 
cgit v1.2.3