@@ -32,7 +32,7 @@ module Text.Pandoc.Readers.Markdown (
34import Data.List ( findIndex, sortBy, transpose, isSuffixOf, intersect )
34import Data.List ( findIndex, sortBy, transpose, isSuffixOf, intersect )
35−import Data.Char ( isAlphaNum, toUpper )
35+import Data.Char ( isAlphaNum )
36import Text.ParserCombinators.Pandoc
36import Text.ParserCombinators.Pandoc
37import Text.Pandoc.Definition
37import Text.Pandoc.Definition
38import Text.Pandoc.Readers.LaTeX ( rawLaTeXInline, rawLaTeXEnvironment )
38import Text.Pandoc.Readers.LaTeX ( rawLaTeXInline, rawLaTeXEnvironment )
@@ -778,9 +778,7 @@ singleQuoteStart = try $ do
778 char '\''
778 char '\''
779 notFollowedBy (oneOf ")!],.;:-? \t\n")
779 notFollowedBy (oneOf ")!],.;:-? \t\n")
780 notFollowedBy (try (do -- possessive or contraction
780 notFollowedBy (try (do -- possessive or contraction
781− let endings = ["s","t","ve","ll","re"]
781+ oneOfStrings ["s","t","m","ve","ll","re"]
782− oneOfStrings (endings ++
783− map (map toUpper) endings)
784 satisfy (not . isAlphaNum)))
782 satisfy (not . isAlphaNum)))
785 return '\''
783 return '\''