Reorganize part9 and part10 a bit.

This commit is contained in:
Richard Feldman
2016-09-06 20:25:59 -07:00
parent 9878f5d993
commit 551ac86ec3
4 changed files with 52 additions and 33 deletions

View File

@@ -53,6 +53,16 @@ initialModel =
}
init : ( Model, Cmd Msg )
init =
( initialModel, githubSearch (getQueryString initialModel.query) )
subscriptions : Model -> Sub Msg
subscriptions _ =
githubResponse decodeResponse
view : Model -> Html Msg
view model =
div [ class "content" ]

View File

@@ -1,14 +1,14 @@
module Main exposing (..)
module Main exposing (main)
import ElmHub exposing (..)
import ElmHub
import Html.App as Html
main : Program Never
main =
Html.program
{ view = view
, update = update
, init = ( initialModel, githubSearch (getQueryString initialModel.query) )
, subscriptions = \_ -> githubResponse decodeResponse
{ view = ElmHub.view
, update = ElmHub.update
, init = ElmHub.init
, subscriptions = ElmHub.subscriptions
}