[htoolkit-cvs] port/src/Port Bitmap.hs,1.3,1.4

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

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