summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2017-09-27 10:31:16 +0200
committerNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2017-09-27 10:31:16 +0200
commit2c9b2af9ac011a871c5c02d3e2258fca73a98880 (patch)
tree653db3959f444f1065f05658650c6ec81863d627 /client/elm/battlemap/src/View/Controls.elm
parent33e57128d48a012533c42635f52037fcdedd4c56 (diff)
Splits client and server into two repositories.
Diffstat (limited to 'client/elm/battlemap/src/View/Controls.elm')
-rw-r--r--client/elm/battlemap/src/View/Controls.elm36
1 files changed, 0 insertions, 36 deletions
diff --git a/client/elm/battlemap/src/View/Controls.elm b/client/elm/battlemap/src/View/Controls.elm
deleted file mode 100644
index be698bf..0000000
--- a/client/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.DirectionRequest dir)
- )
- ]
- [ (Html.text label) ]
- )
-
-end_turn_button : (Html.Html Event.Type)
-end_turn_button =
- (Html.button
- [ (Html.Events.onClick Event.EndTurn) ]
- [ (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)
- ]