Commits

Bryan O'Sullivan  committed b34812a

Tidy up the Utf32 module

  • Participants
  • Parent commits eed56b4

Comments (0)

Files changed (1)

File Data/Text/Utf32.hs

-module Data.Text.Utf32 where
+module Data.Text.Utf32
+    (
+      validate
+    ) where
 
 import Data.Word (Word32)
 
 validate    :: Word32 -> Bool
 validate x1 = (x1 >= 0x0 && x1 < 0xD800) || (x1 > 0xDFFF && x1 <= 0x10FFFF)
+{-# INLINE validate #-}