Reorganize stages into parts

This commit is contained in:
Richard Feldman
2016-04-02 07:08:08 -07:00
parent 05f1716c43
commit beb283b9ff
108 changed files with 14 additions and 2 deletions

27
part11/Main.elm Normal file
View File

@@ -0,0 +1,27 @@
module Main (..) where
import StartApp
import ElmHub exposing (..)
import Effects exposing (Effects)
import Task exposing (Task)
import Html exposing (Html)
main : Signal Html
main =
app.html
app : StartApp.App Model
app =
StartApp.start
{ view = view
, update = update
, init = ( initialModel, Effects.task (searchFeed initialModel.query) )
, inputs = []
}
port tasks : Signal (Task Effects.Never ())
port tasks =
app.tasks