diff --git a/Data/Array/IO/Internals.hs b/Data/Array/IO/Internals.hs
index 4f784de86890fb408a9773b02b32e83987c82127..c9738e93de28c882e96daabdb463ca07af9e4813 100644
--- a/Data/Array/IO/Internals.hs
+++ b/Data/Array/IO/Internals.hs
@@ -22,6 +22,7 @@ module Data.Array.IO.Internals (
     IOUArray(..),        -- instance of: Eq, Typeable
     castIOUArray,        -- :: IOUArray ix a -> IO (IOUArray ix b)
     unsafeThawIOUArray,
+    unsafeFreezeIOUArray
   ) where
 
 import Data.Int