Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv26523/src/Port
Modified Files:
Types.hs
Log Message:
bugfix
Index: Types.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Types.hs,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** Types.hs 8 Jul 2003 20:31:29 -0000 1.22
--- Types.hs 12 Jul 2003 19:50:04 -0000 1.23
***************
*** 410,414 ****
where
i = fromCWord ci
! bitsSet x mask = x .&. 0x01 /= 0
toCModifiers :: Modifiers -> CWord
--- 410,414 ----
where
i = fromCWord ci
! bitsSet x mask = x .&. mask /= 0
toCModifiers :: Modifiers -> CWord
|
