From: Esa Ilari Vuokko <ei@vuokko.info>
Date: Wed, 9 Aug 2006 16:30:12 +0000 (+0000)
Subject: Remove HasBounds-instance and implement MArray.getBounds instead
X-Git-Tag: Before_FC_branch_merge~243
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a61822e8b6d9d85f5f16df059d5588993bbe39de;p=ghc-hetmet.git

Remove HasBounds-instance and implement MArray.getBounds instead
---

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