From f7b69e9cb914cb69bbede5264729523fb8669db1 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Mon, 1 May 2017 12:57:25 -0400
Subject: [PATCH] Export unsafeFreezeIOUArray
The fact that this was previously hidden appears to be an oversight and
I've needed it at least once.
---
Data/Array/IO/Internals.hs | 1 +
1 file changed, 1 insertion(+)
diff --git a/Data/Array/IO/Internals.hs b/Data/Array/IO/Internals.hs
index 4f784de8..c9738e93 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
--
GitLab