From cd38d4ae79b41972960fd038c7c7cfbfe2dae92a Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sun, 8 Jun 2008 03:20:15 +0000
Subject: Markdown smart typography: Em dashes no longer eat surrounding
 whitespace. Resolves Issue #69.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1279 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 Text/Pandoc/Readers/Markdown.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Text/Pandoc')

diff --git a/Text/Pandoc/Readers/Markdown.hs b/Text/Pandoc/Readers/Markdown.hs
index 2dbf9e189..7c4a778fe 100644
--- a/Text/Pandoc/Readers/Markdown.hs
+++ b/Text/Pandoc/Readers/Markdown.hs
@@ -851,8 +851,7 @@ dash = enDash <|> emDash
 
 enDash = try $ char '-' >> notFollowedBy (noneOf "0123456789") >> return EnDash
 
-emDash = try $ skipSpaces >> oneOfStrings ["---", "--"] >>
-               skipSpaces >> return EmDash
+emDash = oneOfStrings ["---", "--"] >> return EmDash
 
 whitespace = do
   sps <- many1 (oneOf spaceChars)
-- 
cgit v1.2.3