From: Ian Lynagh <igloo@earth.li>
Date: Thu, 29 Mar 2007 16:42:38 +0000 (+0000)
Subject: Fix the type of wgencat
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=13a0376dd3e79f7baacf84943baf79cb4cb188b1

Fix the type of wgencat
---

diff --git a/compat/Compat/Unicode.hs b/compat/Compat/Unicode.hs
index 2637fac..fe5b0ba 100644
--- a/compat/Compat/Unicode.hs
+++ b/compat/Compat/Unicode.hs
@@ -50,10 +50,10 @@ data GeneralCategory
 
 -- | Retrieves the general Unicode category of the character.
 generalCategory :: Char -> GeneralCategory
-generalCategory c = toEnum (wgencat (fromIntegral (ord c)))
+generalCategory c = toEnum $ fromIntegral $ wgencat $ fromIntegral $ ord c
 
 foreign import ccall unsafe "u_gencat"
-  wgencat :: CInt -> Int
+  wgencat :: CInt -> CInt
 
 isPrint c = iswprint (fromIntegral (ord c)) /= 0
 isUpper c = iswupper (fromIntegral (ord c)) /= 0