Tidy up the Utf32 module
--HG--
extra : convert_revision : e1a3ac31de60459c7a03acb58760bf1257ee2bfa
commit5bebce75f77841061b7717bf2464593dab819275
authorBryan O'Sullivan <bos@serpentine.com>
dateMon 19 Jan 2009, 12:25 (18 years ago)
parentb9983b2
Data/Text/Utf32.hs+5−1
@@ -1,6 +1,10 @@
1−module Data.Text.Utf32 where
1+module Data.Text.Utf32
2+ (
3+ validate
4+ ) where
25
36import Data.Word (Word32)
47
58validate :: Word32 -> Bool
69validate x1 = (x1 >= 0x0 && x1 < 0xD800) || (x1 > 0xDFFF && x1 <= 0x10FFFF)
10+{-# INLINE validate #-}