[htoolkit-cvs] port/src/Port Types.hs,1.15,1.16

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

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv872/src/Port

Modified Files:
	Types.hs 
Log Message:
fix


Index: Types.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Types.hs,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** Types.hs	26 Mar 2003 18:11:31 -0000	1.15
--- Types.hs	26 Mar 2003 18:20:35 -0000	1.16
***************
*** 1054,1058 ****
  peekCStrings :: CString -> IO [String]
  peekCStrings cstrs
!   | ptr == nullPtr = return []
    | otherwise = do 
         str <- peekCString cstrs
--- 1054,1058 ----
  peekCStrings :: CString -> IO [String]
  peekCStrings cstrs
!   | cstrs == nullPtr = return []
    | otherwise = do 
         str <- peekCString cstrs
***************
*** 1067,1071 ****
    = bracket io free safePeekCString
    where
!   	safePeekCString ptr | ptr == nullPtr = ""
  	                    | otherwise      = peekCString ptr
  
--- 1067,1071 ----
    = bracket io free safePeekCString
    where
!   	safePeekCString ptr | ptr == nullPtr = return ""
  	                    | otherwise      = peekCString ptr