normalizeNfc

lib/Quox/Unicode.idr

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

lib/quox-lib.ipkg

@@ -9,7 +9,7 @@ depends = base, contrib, elab-util, sop, snocvect
 
 modules =
   Quox.NatExtra,
-  Quox.CharExtra,
+  Quox.Unicode,
   Quox.OPE,
   Quox.Pretty,
   Quox.Syntax,