From a61822e8b6d9d85f5f16df059d5588993bbe39de Mon Sep 17 00:00:00 2001 From: Esa Ilari Vuokko Date: Wed, 9 Aug 2006 16:30:12 +0000 Subject: [PATCH] Remove HasBounds-instance and implement MArray.getBounds instead --- compiler/ghci/ByteCodeLink.lhs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/compiler/ghci/ByteCodeLink.lhs b/compiler/ghci/ByteCodeLink.lhs index 9e4be7d..6bca06a 100644 --- a/compiler/ghci/ByteCodeLink.lhs +++ b/compiler/ghci/ByteCodeLink.lhs @@ -157,10 +157,8 @@ mkPtrsArray ie ce n_ptrs ptrs = do newtype IOArray i e = IOArray (STArray RealWorld i e) -instance HasBounds IOArray where - bounds (IOArray marr) = bounds marr - instance MArray IOArray e IO where + getBounds (IOArray marr) = stToIO $ getBounds marr newArray lu init = stToIO $ do marr <- newArray lu init; return (IOArray marr) newArray_ lu = stToIO $ do -- 1.7.10.4