CarrotPotato.elm

module CarrotPotato where

import StartApp
import Task exposing (Task)
import Signal exposing (Signal, Address)
import Effects exposing (Effects, Never)
import Html exposing (Html)

--
-- StartApp boilerplate
--
app =
  StartApp.start { init = init, view = view, update = update, inputs = [] }

main : Signal Html
main =
  app.html

port tasks : Signal (Task Never ())
port tasks =
  app.tasks

--
-- My type declarations
--
type alias Model = String

type Action = NoOp

--
-- My functions
--
init : (Model, Effects Action)
init = ("Hello World", Effects.none)

update : Action -> Model -> (Model, Effects Action)
update action model = 
  case action of
    NoOp -> (model, Effects.none)

view : Address Action -> Model -> Html
view address model = Html.text model