ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-12-01 14:36:27 +03:00
Code Issues Projects Releases Wiki Activity

rename fallbackClassifier to standardClassifier.

Browse Source
This commit is contained in:
Corey O'Connor 2014-09-24 23:25:42 -07:00
parent 172aae8fa4
commit 822db068a1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Graphics/Vty/Input/Classify.hs
View File

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