normalizeNfc
This commit is contained in:
parent
c743a99356
commit
274ecfb58c
5 changed files with 99 additions and 60 deletions
|
@ -1,4 +1,4 @@
|
|||
module Quox.CharExtra
|
||||
module Quox.Unicode
|
||||
|
||||
import Generics.Derive
|
||||
|
||||
|
@ -133,3 +133,8 @@ isWhitespace : Char -> Bool
|
|||
isWhitespace ch =
|
||||
ch == '\t' || ch == '\r' || ch == '\n' ||
|
||||
case genCat ch of Separator _ => True; _ => False
|
||||
|
||||
|
||||
export
|
||||
%foreign "scheme:string-normalize-nfc"
|
||||
normalizeNfc : String -> String
|
Loading…
Add table
Add a link
Reference in a new issue