X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FArray%2FIO%2FInternals.hs;h=0f6d94ed50f418ff144f1c2a034ddde5a5075d0d;hb=b8ac498face4c8b16c06d30fbc86666b7dc28173;hp=17f0f37b91d6674abfa462b6dd92954a9d5da6b1;hpb=aa892b1ecac3f5b19b7b1a02367f347f545d9914;p=haskell-directory.git

diff --git a/Data/Array/IO/Internals.hs b/Data/Array/IO/Internals.hs
index 17f0f37..0f6d94e 100644
--- a/Data/Array/IO/Internals.hs
+++ b/Data/Array/IO/Internals.hs
@@ -304,3 +304,4 @@ castIOUArray :: IOUArray ix a -> IO (IOUArray ix b)
 castIOUArray (IOUArray marr) = stToIO $ do
     marr' <- castSTUArray marr
     return (IOUArray marr')
+