| summaryrefslogtreecommitdiff | 
diff options
Diffstat (limited to 'elm/battlemap/src/View/Controls.elm')
| -rw-r--r-- | elm/battlemap/src/View/Controls.elm | 36 | 
1 files changed, 0 insertions, 36 deletions
diff --git a/elm/battlemap/src/View/Controls.elm b/elm/battlemap/src/View/Controls.elm deleted file mode 100644 index f5851a9..0000000 --- a/elm/battlemap/src/View/Controls.elm +++ /dev/null @@ -1,36 +0,0 @@ -module View.Controls exposing (view) - -import Html -import Html.Events - -import Battlemap.Direction - -import Event - -direction_button : Battlemap.Direction.Type -> String -> (Html.Html Event.Type) -direction_button dir label = -   (Html.button -      [ -         (Html.Events.onClick -            (Event.DirectionRequested dir) -         ) -      ] -      [ (Html.text label) ] -   ) - -end_turn_button : (Html.Html Event.Type) -end_turn_button = -   (Html.button -      [ (Html.Events.onClick Event.TurnEnded) ] -      [ (Html.text "End Turn") ] -   ) - -view : (List (Html.Html Event.Type)) -view = -   [ -      (direction_button Battlemap.Direction.Left "Left"), -      (direction_button Battlemap.Direction.Down "Down"), -      (direction_button Battlemap.Direction.Up "Up"), -      (direction_button Battlemap.Direction.Right "Right"), -      (end_turn_button) -   ]  | 


