client/elm/battlemap/src/Model.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

module Model exposing (Model, model)

import Battlemap as Bp exposing (Battlemap, random)
import Battlemap.Location exposing (..)
import Battlemap.Navigator as Nr exposing (Navigator, new_navigator)

-- MODEL
type alias Model =
   {
      battlemap: Bp.Battlemap,
      navigator: (Maybe Nr.Navigator)
   }

model : Model
model =
   {
      battlemap = (Bp.random),
      navigator = (Just (Nr.new_navigator {x=2, y=4}))
   }