From: ross <unknown>
Date: Tue, 17 Jan 2006 09:38:38 +0000 (+0000)
Subject: [project @ 2006-01-17 09:38:38 by ross]
X-Git-Tag: directory_2007-05-24~343
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=74d3d254a9e044d410a1cbd8db1c1dc2f1ead58f;p=haskell-directory.git

[project @ 2006-01-17 09:38:38 by ross]
add Ix instance for GeneralCategory.
---

diff --git a/Data/Char.hs b/Data/Char.hs
index 48de798..800899c 100644
--- a/Data/Char.hs
+++ b/Data/Char.hs
@@ -56,6 +56,7 @@ module Data.Char
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Base
+import GHC.Arr (Ix)
 import GHC.Real (fromIntegral)
 import GHC.Show
 import GHC.Read (Read, readLitChar, lexLitChar)
@@ -65,6 +66,7 @@ import GHC.Enum
 #endif
 
 #ifdef __HUGS__
+import Hugs.Prelude (Ix)
 import Hugs.Char
 #endif
 
@@ -72,6 +74,7 @@ import Hugs.Char
 import Prelude
 import Prelude(Char,String)
 import Char
+import Ix (Ix)
 import NHC.FFI (CInt)
 foreign import ccall unsafe "WCsubst.h u_gencat" wgencat :: CInt -> Int
 #endif
@@ -127,7 +130,7 @@ data GeneralCategory
         | Surrogate             -- ^ Cs: Other, Surrogate
         | PrivateUse            -- ^ Co: Other, Private Use
         | NotAssigned           -- ^ Cn: Other, Not Assigned
-        deriving (Eq, Ord, Enum, Read, Show, Bounded)
+        deriving (Eq, Ord, Enum, Read, Show, Bounded, Ix)
 
 -- | The Unicode general category of the character.
 generalCategory :: Char -> GeneralCategory