From 673ac452ea09dc0724cb09051d25cd0018888364 Mon Sep 17 00:00:00 2001
From: Christian Klein <chris+git@yokta.de>
Date: Sun, 9 May 2021 15:45:19 +0200
Subject: [PATCH] Fixed overwriteAt, that did not overwrite if first pos in
 Array is to be changed

---
 src/PC/Helpers.elm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/src/PC/Helpers.elm b/src/PC/Helpers.elm
index c8b01ee..41d09eb 100644
--- a/src/PC/Helpers.elm
+++ b/src/PC/Helpers.elm
@@ -33,9 +33,7 @@ overwriteAt default pos newVal list =
     let
         len = List.length list
     in
-    if pos == 0 then
-        newVal :: list
-    else if pos > len then
+    if pos > len then
         list ++ 
         (List.repeat (pos-len) default) ++
         [newVal]
@@ -51,9 +49,7 @@ overwriteAt_Arr default pos newVal list =
     let
         len = Array.length list
     in
-    if pos == 0 then
-        Array.append (Array.fromList [newVal]) list
-    else if pos > len then
+    if pos > len then
         Array.append list 
         <| Array.append (Array.repeat (pos-len) default) 
         <| Array.fromList [newVal]