@@ -58,11 +58,11 @@ compile table = cl' where
59classify :: ClassifyMap -> [Char] -> KClass
59classify :: ClassifyMap -> [Char] -> KClass
60classify table =
60classify table =
61− let fallbackClassifier = compile table
61+ let standardClassifier = compile table
62 in \s -> case s of
62 in \s -> case s of
63 (c:_) | ord c >= 0xC2 && utf8Length (ord c) > length s -> Prefix -- beginning of an utf8 sequence
63 (c:_) | ord c >= 0xC2 && utf8Length (ord c) > length s -> Prefix -- beginning of an utf8 sequence
64 (c:_) | ord c >= 0xC2 -> classifyUtf8 s -- As soon as
64 (c:_) | ord c >= 0xC2 -> classifyUtf8 s -- As soon as
65− _ -> fallbackClassifier s
65+ _ -> standardClassifier s
67classifyUtf8 :: [Char] -> KClass
67classifyUtf8 :: [Char] -> KClass
68classifyUtf8 s = case decode ((map (fromIntegral . ord) s) :: [Word8]) of
68classifyUtf8 s = case decode ((map (fromIntegral . ord) s) :: [Word8]) of