From: ross <unknown>
Date: Thu, 22 May 2003 10:59:47 +0000 (+0000)
Subject: [project @ 2003-05-22 10:59:47 by ross]
X-Git-Tag: nhc98-1-18-release~637
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c76aaa3b89c2ee9468bf3d14b0ae714feb7ba328;p=ghc-base.git

[project @ 2003-05-22 10:59:47 by ross]
unbreak for Hugs
---

diff --git a/Foreign/Marshal/Alloc.hs b/Foreign/Marshal/Alloc.hs
index 65294ce..1b9fe12 100644
--- a/Foreign/Marshal/Alloc.hs
+++ b/Foreign/Marshal/Alloc.hs
@@ -30,11 +30,11 @@ module Foreign.Marshal.Alloc (
 
 import Data.Maybe
 import Foreign.Ptr	 	( Ptr, nullPtr, FunPtr )
-import Foreign.ForeignPtr	( FinalizerPtr )
 import Foreign.C.Types	 	( CSize )
 import Foreign.Storable  	( Storable(sizeOf) )
 
 #ifdef __GLASGOW_HASKELL__
+import Foreign.ForeignPtr	( FinalizerPtr )
 import GHC.IOBase
 import GHC.Real
 import GHC.Ptr
@@ -46,6 +46,9 @@ import IO			( bracket )
 import Control.Exception	( bracket )
 #endif
 
+#ifdef __HUGS__
+import Hugs.ForeignPtr		( FinalizerPtr )
+#endif
 
 -- exported functions
 -- ------------------