changed model to board

tkshill · Nov 1, 2020 · b02e90a · b02e90a
1 parent 32f4293
commit b02e90a
Showing 1 changed file with 16 additions and 1 deletion.
diff --git a/src/Game/Model.elm → src/Game/Board.elm b/src/Game/Model.elm → 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
+
+
 
 --