[htoolkit-cvs] port/src/Port Types.hs,1.22,1.23

[<kr_...@us...>]

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