diff options
| author | gwern0 <gwern0@gmail.com> | 2007-10-19 03:00:34 +0200 |
|---|---|---|
| committer | gwern0 <gwern0@gmail.com> | 2007-10-19 03:00:34 +0200 |
| commit | 4bd882120d6012fc0b247562da29b938e826a50a (patch) | |
| tree | f33499e8de60feaea0b330906f05780dc43591a5 | |
| parent | 4179e88562b1bac351431dc256f2c4c8b641c556 (diff) | |
| download | XMonadContrib-4bd882120d6012fc0b247562da29b938e826a50a.tar.gz XMonadContrib-4bd882120d6012fc0b247562da29b938e826a50a.tar.xz XMonadContrib-4bd882120d6012fc0b247562da29b938e826a50a.zip | |
XSelection.hs: +type signature for auxiliary function
darcs-hash:20071019010034-f7719-fa310f748e3130d12d3c40bc411aa658bf54ed0c.gz
| -rw-r--r-- | XSelection.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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) && |