| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2017-09-25 12:55:26 +0200 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2017-09-25 12:55:26 +0200 |
| commit | 1edd31d9972a7dec8cd54889e33bfdf1d5838670 (patch) | |
| tree | 99eca22bd86131c5d47f00d958316669c28fe165 | |
| parent | 5ae746f1be25bd151ef5da18c65b000eb5257373 (diff) | |
Adds changes before merge.
| -rw-r--r-- | client/elm/battlemap/src/Util/Array.elm | 14 |
1 files changed, 14 insertions, 0 deletions
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) |