cleanup

Author: sbaechler

src/Hexagon.elm

@@ -17,7 +17,7 @@ type alias Player =
 type Direction = Left | Right | Still
 
 type alias Game =
-  { 
+  {
     player : Player
   , direction : Direction
   , keyboardModel : Keyboard.Model
@@ -26,7 +26,7 @@ type alias Game =
 type Msg
   = Step Time
   | KeyboardExtraMsg Keyboard.Msg
-  | Noop
+
 
 (gameWidth, gameHeight) = (1024, 576) -- 16:9
 (halfWidth, halfHeight) = (gameWidth/2, gameHeight/2)
@@ -41,7 +41,7 @@ playerRadius = gameWidth / 10.0
 updatePlayerAngle: Float -> Direction -> Float
 updatePlayerAngle angle dir =
   let
-    sign = 
+    sign =
       if dir == Left then 1
       else if dir == Right then -1
       else 0
@@ -68,7 +68,7 @@ onUserInput keyMsg game =
   let
     ( keyboardModel, keyboardCmd ) =
       Keyboard.update keyMsg game.keyboardModel
-    direction = 
+    direction =
       if (Keyboard.arrows keyboardModel).x < 0 then Left
       else if (Keyboard.arrows keyboardModel).x > 0 then Right
       else Still
@@ -95,7 +95,6 @@ update msg game =
   case msg of
     KeyboardExtraMsg keyMsg -> onUserInput keyMsg game
     Step time -> onFrame time game
-    _ -> (game, Cmd.none)
 
 
 -- VIEW
@@ -110,7 +109,7 @@ moveRadial angle radius =
 
 makePlayer : Player -> Form
 makePlayer player =
-  let 
+  let
     angle = player.angle - degrees 30
   in
     ngon 3 10
@@ -152,9 +151,7 @@ init =
       , keyboardModel = keyboardModel
       , direction = Still
       }
-    , Cmd.batch
-      [ Cmd.map KeyboardExtraMsg keyboardCmd
-      ]
+    , Cmd.map KeyboardExtraMsg keyboardCmd
     )