b557ee0842
Link to fuzz test docs and Fuzzer docs Move part9 to be part12 Update part11 Update 12, and some other Mains Rearrange things, drop 2 modules Add a new part12 Fix READMEs Move some things up a directory Update part11 Use ! [] Update parts7-9 Fix part12g Swap part11 and part12 Fix readmes for part11 and part12 Add HtmlRunner to part8 Update part8 and part9 READMEs rm part10/test
32 lines
712 B
Elm
32 lines
712 B
Elm
port module Main exposing (..)
|
|
|
|
import ElmHub exposing (..)
|
|
import Html.App
|
|
import Json.Decode
|
|
|
|
|
|
main : Program Never
|
|
main =
|
|
Html.App.program
|
|
{ view = view
|
|
, update = update githubSearch
|
|
, init = ( initialModel, githubSearch (getQueryString initialModel.query) )
|
|
, subscriptions = \_ -> githubResponse decodeResponse
|
|
}
|
|
|
|
|
|
decodeResponse : Json.Decode.Value -> Msg
|
|
decodeResponse json =
|
|
case Json.Decode.decodeValue responseDecoder json of
|
|
Err err ->
|
|
HandleSearchError (Just err)
|
|
|
|
Ok results ->
|
|
HandleSearchResponse results
|
|
|
|
|
|
port githubSearch : String -> Cmd msg
|
|
|
|
|
|
port githubResponse : (Json.Decode.Value -> msg) -> Sub msg
|