[clean up some code, make Data.Unicode better
John Meacham <john@repetae.net>**20060308024430] hunk ./lib/Data/Unicode.hs 1
-module Data.Unicode where
+module Data.Unicode(
+    CType(),
+    ctype,
+    isCType,
+    t_alnum,
+    t_alpha,
+    t_blank,
+    t_cntrl,
+    t_digit,
+    t_graph,
+    t_lower,
+    t_print,
+    t_punct,
+    t_space,
+    t_upper,
+    t_xdigit,
+    t_none
+    )where
hunk ./lib/Data/Unicode.hs 21
+import Foreign.C.Types
hunk ./lib/Data/Unicode.hs 24
-newtype CType = CType Int
+newtype CType = CType CInt
hunk ./lib/Data/Unicode.hs 31
+isCType :: Char -> CType -> Bool
+isCType ch ct = unsafePerformIO (c_iswctype ch ct) /= 0
+
hunk ./lib/Data/Unicode.hs 53
+{-# NOINLINE
+ t_alnum, t_alpha, t_blank, t_cntrl,
+ t_digit, t_graph, t_lower, t_print,
+ t_punct, t_space, t_upper, t_xdigit
+ #-}
hunk ./lib/Prelude.hs 1
-module Prelude(module Prelude,  IO, IOError, putStr, putStrLn, module Prelude.IO, module Prelude.Text, Rational) where
+module Prelude(
+    -- export everything here
+    module Prelude,
+    -- export types from elsewhere
+    IO(),
+    IOError(),
+    Rational(),
+    -- functions from elsewhere
+    putStr,
+    putStrLn,
+    -- submodules
+    module Prelude.IO,
+    module Prelude.Text
+    ) where