From 13a0376dd3e79f7baacf84943baf79cb4cb188b1 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Thu, 29 Mar 2007 16:42:38 +0000 Subject: [PATCH] Fix the type of wgencat --- compat/Compat/Unicode.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4