Started a rather large reorganization.messy-exchanges

1 files changed, 14 insertions, 3 deletions

diff --git a/elm/battlemap/src/Util/Array.elm b/elm/battlemap/src/Util/Array.elm
index 8088244..69d329c 100644
--- a/elm/battlemap/src/Util/Array.elm
+++ b/elm/battlemap/src/Util/Array.elm
@@ -1,14 +1,25 @@
-module Util.Array exposing (update)
+module Util.Array exposing (update, update_unsafe)
 
 import Array
 
 update : (
       Int ->
       ((Maybe t) -> (Maybe t)) ->
-      (Array t) ->
-      (Array t)
+      (Array.Array t) ->
+      (Array.Array t)
    )
 update index fun array =
    case (fun (Array.get index array)) of
       Nothing -> array
       (Just e) -> (Array.set index e array)
+
+update_unsafe : (
+      Int ->
+      (t -> t) ->
+      (Array.Array t) ->
+      (Array.Array t)
+   )
+update_unsafe index fun array =
+   case (Array.get index array) of
+      Nothing -> array
+      (Just e) -> (Array.set index (fun e) array)