Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv27998/src/Port
Modified Files:
Bitmap.hs
Log Message:
bugfix
Index: Bitmap.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Bitmap.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Bitmap.hs 31 Jan 2003 23:25:37 -0000 1.3
--- Bitmap.hs 23 Mar 2003 10:17:54 -0000 1.4
***************
*** 116,121 ****
= do done <- osSelectNextEncoder enum
if (fromCBool done)
! then return []
! else do name <- resultCString (osGetCurrentEncoderName enum)
descr <- resultCString (osGetCurrentEncoderDescription enum)
mime <- resultCString (osGetCurrentEncoderMime enum)
--- 116,120 ----
= do done <- osSelectNextEncoder enum
if (fromCBool done)
! then do name <- resultCString (osGetCurrentEncoderName enum)
descr <- resultCString (osGetCurrentEncoderDescription enum)
mime <- resultCString (osGetCurrentEncoderMime enum)
***************
*** 125,128 ****
--- 124,128 ----
codecs<- getCodecs enum
return (Codec name descr mime exts (fromCBool cread) (fromCBool cwrite) : codecs)
+ else return []
type EnumHandle = Ptr EH
|
