From 5a75000ec7b961ad5fe93814e5b7905cacbdba49 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Thu, 12 Oct 2017 19:46:36 +0200 Subject: Started a rather large reorganization. --- elm/battlemap/src/Util/Array.elm | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) (limited to 'elm/battlemap/src/Util/Array.elm') 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) -- cgit v1.2.3-70-g09d2