@@ -32,7 +32,7 @@ module Text.Pandoc.Readers.Markdown (
3232 ) where
3333
3434import Data.List ( findIndex, sortBy, transpose, isSuffixOf, intersect )
35−import Data.Char ( isAlphaNum, toUpper )
35+import Data.Char ( isAlphaNum )
3636import Text.ParserCombinators.Pandoc
3737import Text.Pandoc.Definition
3838import Text.Pandoc.Readers.LaTeX ( rawLaTeXInline, rawLaTeXEnvironment )
@@ -778,9 +778,7 @@ singleQuoteStart = try $ do
778778 char '\''
779779 notFollowedBy (oneOf ")!],.;:-? \t\n")
780780 notFollowedBy (try (do -- possessive or contraction
781− let endings = ["s","t","ve","ll","re"]
782− oneOfStrings (endings ++
783− map (map toUpper) endings)
781+ oneOfStrings ["s","t","m","ve","ll","re"]
784782 satisfy (not . isAlphaNum)))
785783 return '\''
786784