Rename runSTArray to run, to avoid function / module name duplication.

Author: Dretch

src/Data/Array/ST.purs

@@ -5,7 +5,7 @@
 module Data.Array.ST
   ( STArray(..)
   , Assoc
-  , runSTArray
+  , run
   , withArray
   , empty
   , peek
@@ -26,7 +26,8 @@ module Data.Array.ST
 
 import Prelude
 
-import Control.Monad.ST (ST, kind Region, run)
+import Control.Monad.ST as ST
+import Control.Monad.ST (ST, kind Region)
 import Data.Maybe (Maybe(..))
 import Unsafe.Coerce (unsafeCoerce)
 
@@ -46,8 +47,8 @@ type Assoc a = { value :: a, index :: Int }
 -- | immutable array for later perusal. This function avoids copying the array
 -- | before returning it - it uses unsafeFreeze internally, but this wrapper is
 -- | a safe interface to that function.
-runSTArray :: forall a. (forall h. ST h (STArray h a)) -> Array a
-runSTArray st = run (st >>= unsafeFreeze)
+run :: forall a. (forall h. ST h (STArray h a)) -> Array a
+run st = ST.run (st >>= unsafeFreeze)
 
 -- | Perform an effect requiring a mutable array on a copy of an immutable array,
 -- | safely returning the result as an immutable array.

test/Test/Data/Array/ST.purs

@@ -18,9 +18,9 @@ run act = ST.run (act >>= STA.unsafeFreeze)
 testArrayST :: Effect Unit
 testArrayST = do
 
-  log "runSTArray should produce an immutable array by running a constructor operation"
+  log "run should produce an immutable array by running a constructor operation"
 
-  assert $ STA.runSTArray (do
+  assert $ STA.run (do
     arr <- STA.empty
     void $ STA.push 1 arr
     void $ STA.push 2 arr