Commit a61822e8 authored by ei@vuokko.info's avatar ei@vuokko.info
Browse files

Remove HasBounds-instance and implement MArray.getBounds instead

parent b7790955
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment