normalizeNfc

This commit is contained in:
rhiannon morris 2022-05-12 07:41:58 +02:00
parent c743a99356
commit 274ecfb58c
5 changed files with 99 additions and 60 deletions

View file

@ -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