Use performAction instead of Task.map and Task.onError directly

stages/5/Main.elm

@@ -40,12 +40,8 @@ searchFeed query =
       "https://api.github.com/search/repositories?q="
         ++ query
         ++ "+language:elm&sort=stars&order=desc"
-
-    task =
-      Http.get responseDecoder url
-        |> Task.map SetResults
   in
-    Task.onError task (\_ -> Task.succeed (SetResults []))
+    performAction SetResults (\_ -> SetResults []) (Http.get responseDecoder url)
 
 
 responseDecoder : Decoder (List SearchResult)
@@ -63,6 +59,15 @@ searchResultDecoder =
     ("TODO what field goes here?" := Json.Decode.int)
 
 
+performAction : (a -> b) -> (y -> b) -> Task y a -> Task x b
+performAction successToAction errorToAction task =
+  let
+    successTask =
+      Task.map successToAction task
+  in
+    Task.onError successTask (\err -> Task.succeed (errorToAction err))
+
+
 type alias Model =
   { query : String
   , results : List SearchResult