Update a ton of things

part10/SearchResult.elm

@@ -1,45 +1,41 @@
-module SearchResult (..) where
+module SearchResult exposing (..)
 
 import Html exposing (..)
-import Html.Attributes exposing (class, target, href, property)
-import Html.Events exposing (..)
-import Json.Decode exposing (Decoder, (:=))
+import Html.Attributes exposing (class, target, href, property, defaultValue)
+import Json.Decode exposing (Decoder)
 import Json.Decode.Pipeline exposing (..)
-import Signal exposing (Address)
-import Dict exposing (Dict)
 
 
 type alias ResultId =
-  Int
+    Int
 
 
 type alias Model =
-  { id : ResultId
-  , name : String
-  , stars : Int
-  }
+    { id : ResultId
+    , name : String
+    , stars : Int
+    }
 
 
 decoder : Decoder Model
 decoder =
-  decode Model
-    |> required "id" Json.Decode.int
-    |> required "full_name" Json.Decode.string
-    |> required "stargazers_count" Json.Decode.int
+    decode Model
+        |> required "id" Json.Decode.int
+        |> required "full_name" Json.Decode.string
+        |> required "stargazers_count" Json.Decode.int
 
 
-view : Address a -> Model -> Html
-view address result =
-  li
-    []
-    [ span [ class "star-count" ] [ text (toString result.stars) ]
-    , a
-        [ href ("https://github.com/" ++ result.name)
-        , target "_blank"
+view : Model -> Html a
+view result =
+    li []
+        [ span [ class "star-count" ] [ text (toString result.stars) ]
+        , a
+            [ href ("https://github.com/" ++ result.name)
+            , target "_blank"
+            ]
+            [ text result.name ]
+        , button
+            -- TODO onClick, send a delete action to the address
+            [ class "hide-result" ]
+            [ text "X" ]
         ]
-        [ text result.name ]
-    , button
-        -- TODO onClick, send a delete action to the address
-        [ class "hide-result" ]
-        [ text "X" ]
-    ]