blob: 1e10a2a595fc14eee95cefafcc6a1a49e6f0fe98 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
module View.Battlemap exposing (view)
import View.Battlemap.Tile
import View.Battlemap.Navigator
view : Battlemap.Type -> (Html.Html Event.Type)
view battlemap =
(Html.div
[
(Html.Attribute.class "battlemap-container")
]
[
(
,
case battlemap.navigator of
(Just navigator) ->
(Html.div
[
(Html.Attribute.class "battlemap-navigator-container")
]
[ (Battlemap.Navigator.Html.view battlemap.navigator) ]
)
Nothing -> (Html.text "") -- Meaning no element.
]
)
|
