a6c1671 · typeable/pandoc

152import qualified Text.Pandoc.UTF8 as UTF8 (putStrLn)

153import Text.Parsec

154import Text.Parsec.Pos (newPos)

155−import Data.Char ( toLower, toUpper, ord, isAscii, isAlphaNum, isDigit, isHexDigit,

155+import Data.Char ( toLower, toUpper, ord, chr, isAscii, isAlphaNum, isDigit,

156− isSpace )

156+ isHexDigit, isSpace )

157import Data.List ( intercalate, transpose )

158import Text.Pandoc.Shared

159import qualified Data.Map as M

244-- | Parses one of a list of strings (tried in order), case insensitive.

245oneOfStringsCI :: [String] -> Parser [Char] st String

246oneOfStringsCI = oneOfStrings' ciMatch

247− where ciMatch x y = toLower x == toLower y

247+ where ciMatch x y = toLower' x == toLower' y

248+ -- this optimizes toLower by checking common ASCII case

249+ -- first, before calling the expensive unicode-aware

250+ -- function:

251+ toLower' c | c >= 'A' && c <= 'Z' = chr (ord c + 32)

252+ | isAscii c = c

253+ | otherwise = toLower c

248

254

249-- | Parses a space or tab.

255-- | Parses a space or tab.

250spaceChar :: Parser [Char] st Char

256spaceChar :: Parser [Char] st Char