Shift all the parts up a number.

part7/Main.elm

@@ -5,9 +5,6 @@ import ElmHub exposing (..)
 import Effects exposing (Effects)
 import Task exposing (Task)
 import Html exposing (Html)
-import Signal
-import Json.Encode
-import Json.Decode
 
 
 main : Signal Html
@@ -19,40 +16,12 @@ app : StartApp.App Model
 app =
   StartApp.start
     { view = view
-    , update = update search.address
-    , init = ( initialModel, Effects.task (searchFeed search.address initialModel.query) )
-    , inputs = [ responseActions ]
+    , update = update
+    , init = ( initialModel, Effects.task (searchFeed initialModel.query) )
+    , inputs = []
     }
 
 
 port tasks : Signal (Task Effects.Never ())
 port tasks =
   app.tasks
-
-
-search : Signal.Mailbox String
-search =
-  Signal.mailbox ""
-
-
-port githubSearch : Signal String
-port githubSearch =
-  search.signal
-
-
-responseActions : Signal Action
-responseActions =
-  Signal.map decodeGithubResponse githubResponse
-
-
-decodeGithubResponse : Json.Encode.Value -> Action
-decodeGithubResponse value =
-  case Json.Decode.decodeValue responseDecoder value of
-    Ok results ->
-      SetResults results
-
-    Err _ ->
-      DoNothing
-
-
-port githubResponse : Signal Json.Encode.Value