From 9cf7974762271c4e8d7254cf6274db8499973cba Mon Sep 17 00:00:00 2001
From: Leo <47278525+LeoUCon@users.noreply.github.com>
Date: Sun, 17 Oct 2021 16:58:23 +0100
Subject: [PATCH] UI aesthetics (#76)

* removed unused variable

* clean up and text styling
---
 src/Game.elm      | 4 ++--
 src/Pages/Top.elm | 9 +++------
 2 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/src/Game.elm b/src/Game.elm
index 3a6a8da..2ef73a4 100644
--- a/src/Game.elm
+++ b/src/Game.elm
@@ -122,7 +122,7 @@ update msg (Model model) =
                 |> map (nextPlayerStartsPlaying Human piece)
                 |> andThen (computerChooses ComputerSelectedCell Board.openCells)
 
-        ( HumanSelectedPiece piece, _ ) ->
+        ( HumanSelectedPiece _, _ ) ->
             Model { model | statusMessage = SomePiecePlayedWhenNotPlayersTurn }
                 |> noCmds
 
@@ -208,7 +208,7 @@ playerTryPlay name piece (Model model) =
 
 
 checkForWin : ActivePlayer -> Model -> ( Model, Cmd Msg )
-checkForWin player (Model ({ board, status } as model)) =
+checkForWin player (Model ({ board } as model)) =
     case ( player, Board.status board ) of
         ( Computer, CanContinue ) ->
             Model model
diff --git a/src/Pages/Top.elm b/src/Pages/Top.elm
index 96d5bc5..26c5358 100644
--- a/src/Pages/Top.elm
+++ b/src/Pages/Top.elm
@@ -12,19 +12,16 @@ import Element
         ( Attribute
         , Element
         , centerX
-        , centerY
         , column
         , el
         , fill
-        , height
         , padding
         , paragraph
-        , px
         , row
         , spacing
         , text
         , width
-        , wrappedRow
+        
         )
 import Element.Background as Background
 import Element.Border as Border
@@ -183,7 +180,7 @@ viewBoard cellDict =
 
 
 viewGamestatus : GameStatus -> Dimensions -> Element Msg
-viewGamestatus gamestatus dimensions =
+viewGamestatus gamestatus _ =
     let
         containerize : List (Element Msg) -> Element Msg
         containerize elements =
@@ -232,7 +229,7 @@ viewStatusMessage statusMessage =
             Element.el [] (Element.text "")
 
         SomePiecePlayedWhenNotPlayersTurn ->
-            Element.el [ centerX, Font.center, Region.announce ] (Element.text "It's not your turn to choose a piece!")
+            Element.el [ centerX, Font.center, Region.announce, Font.color Styles.red, Font.semiBold ] (Element.text "It's not your turn to choose a piece!")
 
 
 viewCell : Cell -> Element Msg