From 1edd31d9972a7dec8cd54889e33bfdf1d5838670 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Mon, 25 Sep 2017 12:55:26 +0200 Subject: Adds changes before merge. --- client/elm/battlemap/src/Util/Array.elm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 client/elm/battlemap/src/Util/Array.elm diff --git a/client/elm/battlemap/src/Util/Array.elm b/client/elm/battlemap/src/Util/Array.elm new file mode 100644 index 0000000..8088244 --- /dev/null +++ b/client/elm/battlemap/src/Util/Array.elm @@ -0,0 +1,14 @@ +module Util.Array exposing (update) + +import Array + +update : ( + Int -> + ((Maybe t) -> (Maybe t)) -> + (Array t) -> + (Array t) + ) +update index fun array = + case (fun (Array.get index array)) of + Nothing -> array + (Just e) -> (Array.set index e array) -- cgit v1.2.3-70-g09d2