From 4bd882120d6012fc0b247562da29b938e826a50a Mon Sep 17 00:00:00 2001 From: gwern0 Date: Fri, 19 Oct 2007 03:00:34 +0200 Subject: XSelection.hs: +type signature for auxiliary function darcs-hash:20071019010034-f7719-fa310f748e3130d12d3c40bc411aa658bf54ed0c.gz --- XSelection.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'XSelection.hs') diff --git a/XSelection.hs b/XSelection.hs index 45547d7..a2132d1 100644 --- a/XSelection.hs +++ b/XSelection.hs @@ -149,6 +149,7 @@ decode (c:cs) multi_byte :: Int -> Word8 -> Int -> [Char] multi_byte i mask overlong = aux i cs (fromEnum (c .&. mask)) where + aux :: forall t. (Num t) => t -> [Word8] -> Int -> [Char] aux 0 rs acc | overlong <= acc && acc <= 0x10ffff && (acc < 0xd800 || 0xdfff < acc) && -- cgit v1.2.3