2017-06-25 04:45:03 +00:00
|
|
|
module Views.Body exposing (..)
|
|
|
|
|
|
|
|
import Html exposing (Html, h1, div, text)
|
2017-06-29 17:50:54 +00:00
|
|
|
import GLOBALS exposing (play_area_size)
|
2017-06-25 04:45:03 +00:00
|
|
|
import Types exposing (Model, Range)
|
|
|
|
import Views.PlayArea
|
|
|
|
|
|
|
|
|
|
|
|
view : Model -> Html msg
|
|
|
|
view model =
|
|
|
|
let
|
|
|
|
( width, height ) =
|
2017-06-29 17:50:54 +00:00
|
|
|
play_area_size
|
2017-06-25 04:45:03 +00:00
|
|
|
in
|
|
|
|
div []
|
|
|
|
[ h1 [] [ text "ElmMan!" ]
|
2017-06-28 22:02:51 +00:00
|
|
|
, Views.PlayArea.render (toString width) (toString height) model
|
2017-06-25 04:45:03 +00:00
|
|
|
]
|