Update a ton of things

part11/SearchResult.elm

@@ -1,50 +1,45 @@
-module SearchResult (..) where
+module SearchResult exposing (..)
 
 import Html exposing (..)
 import Html.Attributes exposing (..)
 import Html.Events exposing (..)
-import Json.Decode exposing (Decoder, (:=))
-import Signal exposing (Address)
+import Json.Decode exposing (Decoder)
 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 =
-  Json.Decode.object3
-    Model
-    ("id" := Json.Decode.int)
-    ("full_name" := Json.Decode.string)
-    ("stargazers_count" := Json.Decode.int)
+    Json.Decode.object3 Model
+        ("id" := Json.Decode.int)
+        ("full_name" := Json.Decode.string)
+        ("stargazers_count" := Json.Decode.int)
 
 
 view : Address a -> (Int -> a) -> Model -> Html
 view address delete result =
-  li
-    []
-    [ span [ class "star-count" ] [ text (toString result.stars) ]
-    , a
-        [ href
-            ("https://github.com/"
-              ++ (Debug.log
-                    "TODO we should not see this when typing in the search box!"
-                    result.name
-                 )
-            )
-        , target "_blank"
+    li []
+        [ span [ class "star-count" ] [ text (toString result.stars) ]
+        , a
+            [ href
+                ("https://github.com/"
+                    ++ (Debug.log "TODO we should not see this when typing in the search box!"
+                            result.name
+                       )
+                )
+            , target "_blank"
+            ]
+            [ text result.name ]
+        , button [ class "hide-result", onClick (delete result.id) ]
+            [ text "X" ]
         ]
-        [ text result.name ]
-    , button
-        [ class "hide-result", onClick address (delete result.id) ]
-        [ text "X" ]
-    ]