Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment