@@ -14,7 +14,7 @@ import Data.Bits ((.&.))
1414import Data.Char (chr, isDigit, isHexDigit, isLower, isSpace, isUpper, ord)
1515import Data.Int (Int8, Int16, Int32, Int64)
1616import Data.Monoid (Monoid(..))
17−import Data.String (fromString)
17+import Data.String (IsString(fromString))
1818import Data.Text.Encoding.Error
1919import Data.Text.Foreign
2020import Data.Text.Internal.Encoding.Utf8
@@ -812,7 +812,7 @@ tl_hexadecimal m s ox =
812812 p = if ox then "0x" else ""
813813 n = getPositive m :: Int
814814
815−isFloaty c = c `elem` "+-.0123456789eE"
815+isFloaty c = c `elem` ("+-.0123456789eE" :: String)
816816
817817t_read_rational p tol (n::Double) s =
818818 case p (T.pack (show n) `T.append` t) of