elm html template

module ElmHtmlTemplate where

import Window
import Graphics.Input (..)
import Graphics.Input as Input
import Html
import Html (..)
import Html.Events (..)

--------------------------------------------------------------------------------
-- MODEL

type AppState = {}

--------------------------------------------------------------------------------

initialAppState : AppState
initialAppState = {}

--------------------------------------------------------------------------------
-- UPDATE

data Event
  = NoOp

step : Event -> AppState -> AppState
step event appState =
    case event of
      _ -> appState

--------------------------------------------------------------------------------
-- VIEW

appView : AppState -> (Int,Int) -> Element
appView appState (w,h) =
  node "div" [] [] [ text "App" ]
  |> Html.toElement w h

--------------------------------------------------------------------------------
-- INPUTS

main : Signal Element
main = lift2 appView appState Window.dimensions

appState : Signal AppState
appState = foldp step initialAppState events

actions : Input Event
actions = Input.input NoOp

events : Signal Event
events = merges [ actions.signal
                ]