[htoolkit-cvs] port/src/Port Types.hs,1.34,1.35

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

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18909/src/Port

Modified Files:
	Types.hs 
Log Message:
Make the package compatible with GHC-6.2


Index: Types.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Types.hs,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** Types.hs	16 Nov 2003 13:25:20 -0000	1.34
--- Types.hs	22 Feb 2004 10:29:56 -0000	1.35
***************
*** 854,858 ****
  fromCBitmap :: BitmapHandle -> IO Bitmap
  fromCBitmap bh
!   = do bm <- newForeignPtr bh osDeleteBitmap
         return (Bitmap bm)
  foreign import ccall "&osDeleteBitmap" osDeleteBitmap :: FinalizerPtr BH
--- 854,858 ----
  fromCBitmap :: BitmapHandle -> IO Bitmap
  fromCBitmap bh
!   = do bm <- newForeignPtr osDeleteBitmap bh
         return (Bitmap bm)
  foreign import ccall "&osDeleteBitmap" osDeleteBitmap :: FinalizerPtr BH
***************
*** 940,944 ****
  fromCFont :: FontDef -> FontHandle -> IO Font
  fromCFont fontdef handle
!   = do fhandle <- newForeignPtr handle osDeleteFont
         return (Font fhandle fontdef)
  foreign import ccall "&osDeleteFont" osDeleteFont :: FinalizerPtr FH
--- 940,944 ----
  fromCFont :: FontDef -> FontHandle -> IO Font
  fromCFont fontdef handle
!   = do fhandle <- newForeignPtr osDeleteFont handle
         return (Font fhandle fontdef)
  foreign import ccall "&osDeleteFont" osDeleteFont :: FinalizerPtr FH