@@ -1,5 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22{-# LANGUAGE GeneralizedNewtypeDeriving #-}
3+{-# LANGUAGE FlexibleContexts #-}
34{-
45Copyright (C) 2014 Albert Krewinkel <tarleb@moltkeplatz.de>
56
@@ -1168,7 +1169,7 @@ isRelativeFilePath s = (("./" `isPrefixOf` s) || ("../" `isPrefixOf` s)) &&
11681169
11691170isUri :: String -> Bool
11701171isUri s = let (scheme, path) = break (== ':') s
1171− in all (\c -> isAlphaNum c || c `elem` ".-") scheme
1172+ in all (\c -> isAlphaNum c || c `elem` (".-" :: String)) scheme
11721173 && not (null path)
11731174
11741175isAbsoluteFilePath :: String -> Bool
@@ -1214,7 +1215,7 @@ solidify :: String -> String
12141215solidify = map replaceSpecialChar
12151216 where replaceSpecialChar c
12161217 | isAlphaNum c = c
1217− | c `elem` "_.-:" = c
1218+ | c `elem` ("_.-:" :: String) = c
12181219 | otherwise = '-'
12191220
12201221-- | Parses an inline code block and marks it as an babel block.
@@ -1465,7 +1466,7 @@ inlineLaTeX = try $ do
14651466 parseAsMathMLSym :: String -> Maybe Inlines
14661467 parseAsMathMLSym cs = B.str <$> MathMLEntityMap.getUnicode (clean cs)
14671468 -- dropWhileEnd would be nice here, but it's not available before base 4.5
1468− where clean = reverse . dropWhile (`elem` "{}") . reverse . drop 1
1469+ where clean = reverse . dropWhile (`elem` ("{}" :: String)) . reverse . drop 1
14691470
14701471 state :: ParserState
14711472 state = def{ stateOptions = def{ readerParseRaw = True }}