on c06d2e2 help sign in
text/Data/Text/Utf32.hs
6 lines 163 B history raw
1module Data.Text.Utf32 where
3import Data.Word (Word32)
5validate :: Word32 -> Bool
6validate x1 = (x1 >= 0x0 && x1 < 0xD800) || (x1 > 0xDFFF && x1 <= 0x10FFFF)