Remove part11

This commit is contained in:
Richard Feldman
2016-09-06 17:50:46 -07:00
parent 4ce7510e1b
commit fa3140351c
15 changed files with 0 additions and 678 deletions

View File

@@ -1,28 +0,0 @@
port module Main exposing (..)
import ElmHub exposing (..)
import Html.App as Html
import Json.Decode
main : Program Never
main =
Html.program
{ view = view
, update = update
, init = init
, 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 githubResponse : (Json.Decode.Value -> msg) -> Sub msg