Rename SleepDone to RestartGame

magopian · Aug 7, 2019 · b88ffa2 · b88ffa2
1 parent abbaf2d
commit b88ffa2
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/Main.elm b/src/Main.elm
@@ -62,7 +62,7 @@ type Msg
     = OnAnimationFrame Float
     | KeyDown PlayerAction
     | KeyUp PlayerAction
-    | SleepDone
+    | RestartGame
     | NewWinner Player
 
 
@@ -153,16 +153,16 @@ update msg model =
 
         NewWinner player ->
             let
-                alwaysSleepDone : a -> Msg
-                alwaysSleepDone =
-                    always SleepDone
+                alwaysRestartGame : a -> Msg
+                alwaysRestartGame =
+                    always RestartGame
 
                 updatedScore =
                     updateScores model.score player
             in
             ( { model | gameStatus = Winner player, score = updatedScore }
             , Process.sleep 500
-                |> Task.perform alwaysSleepDone
+                |> Task.perform alwaysRestartGame
             )
 
         KeyDown playerAction ->
@@ -209,7 +209,7 @@ update msg model =
                     , Cmd.none
                     )
 
-        SleepDone ->
+        RestartGame ->
             ( { model
                 | ball = initBall
                 , gameStatus = NoWinner