From c76aaa3b89c2ee9468bf3d14b0ae714feb7ba328 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Thu, 22 May 2003 10:59:47 +0000
Subject: [PATCH] [project @ 2003-05-22 10:59:47 by ross] unbreak for Hugs

---
 Foreign/Marshal/Alloc.hs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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
 -- ------------------
-- 
1.7.10.4