@@ -58,11 +58,11 @@ compile table = cl' where
5858
5959classify :: ClassifyMap -> [Char] -> KClass
6060classify table =
61− let fallbackClassifier = compile table
61+ let standardClassifier = compile table
6262 in \s -> case s of
6363 (c:_) | ord c >= 0xC2 && utf8Length (ord c) > length s -> Prefix -- beginning of an utf8 sequence
6464 (c:_) | ord c >= 0xC2 -> classifyUtf8 s -- As soon as
65− _ -> fallbackClassifier s
65+ _ -> standardClassifier s
6666
6767classifyUtf8 :: [Char] -> KClass
6868classifyUtf8 s = case decode ((map (fromIntegral . ord) s) :: [Word8]) of