Initial movement set to none.

src/Init/Player.elm

@@ -7,4 +7,5 @@ init : PlayerModel
 init =
     { direction = Right
     , location = ( 250, 450 )
+    , moving = False
     }

src/Types.elm

@@ -34,6 +34,7 @@ type Msg
 type alias PlayerModel =
     { direction : Direction
     , location : ( Float, Float )
+    , moving : Bool
     }
 
 

src/Updates/Player.elm

@@ -18,6 +18,7 @@ update msg model =
             ( model, Cmd.none )
 
         Tock timeDiff ->
+            if model.moving then
                 let
                     direction =
                         case model.direction of
@@ -39,6 +40,8 @@ update msg model =
                     ( { model | location = movePosition model.location direction distance }
                     , Cmd.none
                     )
+            else
+                ( model, Cmd.none )
 
         Press keyCode ->
             let
@@ -62,16 +65,16 @@ update msg model =
             in
                 case direction of
                     MoveUp ->
-                        ( { model | direction = Up }, Cmd.none )
+                        ( { model | direction = Up, moving = True }, Cmd.none )
 
                     MoveDown ->
-                        ( { model | direction = Down }, Cmd.none )
+                        ( { model | direction = Down, moving = True }, Cmd.none )
 
                     MoveLeft ->
-                        ( { model | direction = Left }, Cmd.none )
+                        ( { model | direction = Left, moving = True }, Cmd.none )
 
                     MoveRight ->
-                        ( { model | direction = Right }, Cmd.none )
+                        ( { model | direction = Right, moving = True }, Cmd.none )
 
                     NoKeyAction ->
                         ( model, Cmd.none )