From b02e90a57d5223d47283e29efb982c1d9b71c93c Mon Sep 17 00:00:00 2001
From: tkshillinz <tkshillinz@icloud.com>
Date: Sun, 1 Nov 2020 11:04:05 -0400
Subject: [PATCH] changed model to board

---
 src/Game/{Model.elm => Board.elm} | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)
 rename src/Game/{Model.elm => Board.elm} (93%)

diff --git a/src/Game/Model.elm b/src/Game/Board.elm
similarity index 93%
rename from src/Game/Model.elm
rename to src/Game/Board.elm
index 67c9671..9ed42e3 100644
--- a/src/Game/Model.elm
+++ b/src/Game/Board.elm
@@ -1,4 +1,4 @@
-module Game.Model exposing
+module Game.Board exposing
     ( BoardState
     , Cellname(..)
     , ChosenPiece
@@ -16,6 +16,7 @@ module Game.Model exposing
     , isWin
     , playedPieces
     , unPlayedPieces
+    , updateBoard
     )
 
 import Dict exposing (Dict)
@@ -427,5 +428,19 @@ initialModel =
     }
 
 
+updateBoard : Cellname -> Gamepiece -> BoardState -> BoardState
+updateBoard name gamepiece board =
+    if
+        List.any ((==) { status = Unplayed, gamepiece = gamepiece }) board
+            && not (List.any (\ps -> ps.status == Played name) board)
+    then
+        board
+            |> List.filter ((/=) { status = Unplayed, gamepiece = gamepiece })
+            |> (::) { status = Played name, gamepiece = gamepiece }
+
+    else
+        board
+
+
 
 --