DestinationNameBox.elm

DestinationNameBox.elm

module DestinationNameBox where

import Debug
import Html exposing (..)
import Html.Events exposing (onBlur, targetValue)
import StartApp.Simple exposing (start)
-- model
type alias Model = String



-- UPDATE

type Action = Update Model

update : Action -> Model -> Model
update action model = 
  case Debug.log "Action " action of
    Update  new -> new


-- View
--view : Signal.Address -> Model -> Html 
view address model = 
  div []
      [label [] [text "Destination Name"
       , input [
                onBlur address (Update  targetValue (Signal.message address))
               ] 
       [ text model]]]


main = 
  start { model = "", update = update, view = view }