From 89beca8b32b3fcb43abcb6167709caad1ffe94ee Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Fri, 31 Aug 2018 17:15:10 +0200
Subject: Adds a directory for shared code.

---
 src/shared/elm/Util/Array.elm | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 src/shared/elm/Util/Array.elm

(limited to 'src/shared/elm/Util/Array.elm')

diff --git a/src/shared/elm/Util/Array.elm b/src/shared/elm/Util/Array.elm
new file mode 100644
index 0000000..9e57c18
--- /dev/null
+++ b/src/shared/elm/Util/Array.elm
@@ -0,0 +1,34 @@
+module Util.Array exposing
+   (
+      update,
+      update_unsafe,
+      filter_first
+   )
+
+import Array
+
+update : (
+      Int ->
+      ((Maybe t) -> (Maybe 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)
+
+filter_first : (t -> Bool) -> (Array.Array t) -> (Maybe t)
+filter_first fun array =
+   (Array.get 0 (Array.filter fun array))
-- 
cgit v1.2.3-70-g09d2