Remove unneeded type variant

Qluxzz · Mar 19, 2024 · 4668de0 · 4668de0
1 parent 703a874
commit 4668de0
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 14 deletions.
diff --git a/src/Game.elm b/src/Game.elm
@@ -51,7 +51,6 @@ type LetterState
     = CorrectPlace
     | IncorrectPlace
     | NotIncluded
-    | NotTried
 
 
 type alias Letter =
@@ -296,9 +295,15 @@ keyboardView triedLetters canSubmit canClear =
                 |> List.map
                     (\char ->
                         div
-                            [ HA.style "background" (backgroundColor (Maybe.withDefault NotTried (Dict.get char triedLetters)))
-                            , HE.onClick (CharEntered char)
-                            ]
+                            (HE.onClick (CharEntered char)
+                                :: (case Dict.get char triedLetters of
+                                        Just c ->
+                                            [ HA.style "background" (backgroundColor c) ]
+
+                                        Nothing ->
+                                            []
+                                   )
+                            )
                             [ text (char |> Char.toUpper |> String.fromChar) ]
                     )
 
@@ -418,9 +423,6 @@ backgroundColor state =
         CorrectPlace ->
             "rgb(0, 190, 0)"
 
-        NotTried ->
-            "rgb(225, 225, 225)"
-
         IncorrectPlace ->
             "#ffb01e"
 
@@ -512,9 +514,6 @@ letterStateOrder x =
         NotIncluded ->
             2
 
-        NotTried ->
-            3
-
 
 sortByLetterState : LetterState -> LetterState -> Order
 sortByLetterState a b =

diff --git a/src/Main.elm b/src/Main.elm
@@ -185,10 +185,6 @@ update msg model =
 
                                                     Game.NotIncluded ->
                                                         "⬜"
-
-                                                    -- TODO: A letter used in an attempt can never have this state
-                                                    Game.NotTried ->
-                                                        "🟥"
                                             )
                                             attempt
                                     )