Update a ton of things

part13/SearchResult.elm

@@ -1,65 +1,59 @@
-module SearchResult (..) where
+module SearchResult exposing (..)
 
 import Html exposing (..)
-import Html.Attributes exposing (class, target, href, property)
+import Html.Attributes exposing (class, target, href, property, defaultValue)
 import Html.Events exposing (..)
-import Signal exposing (Address)
-import Effects exposing (Effects)
-import Json.Decode exposing (Decoder, (:=))
+import Json.Decode exposing (Decoder)
 import Json.Decode.Pipeline exposing (..)
 
 
 type alias Model =
-  { id : Int
-  , name : String
-  , stars : Int
-  , expanded : Bool
-  }
+    { id : Int
+    , name : String
+    , stars : Int
+    , expanded : Bool
+    }
 
 
 type alias ResultId =
-  Int
+    Int
 
 
-type Action
-  = Expand
-  | Collapse
+type Msg
+    = Expand
+    | Collapse
 
 
 decoder : Decoder Model
 decoder =
-  decode Model
-    |> required "id" Json.Decode.int
-    |> required "full_name" Json.Decode.string
-    |> required "stargazers_count" Json.Decode.int
-    |> hardcoded True
+    decode Model
+        |> required "id" Json.Decode.int
+        |> required "full_name" Json.Decode.string
+        |> required "stargazers_count" Json.Decode.int
+        |> hardcoded True
 
 
-update : Action -> Model -> ( Model, Effects Action )
-update action model =
-  case action of
-    Expand ->
-      ( { model | expanded = True }, Effects.none )
+update : Msg -> Model -> ( Model, Cmd Msg )
+update msg model =
+    case msg of
+        Expand ->
+            ( { model | expanded = True }, Cmd.none )
 
-    Collapse ->
-      ( { model | expanded = False }, Effects.none )
+        Collapse ->
+            ( { model | expanded = False }, Cmd.none )
 
 
-view : Address Action -> Model -> Html
-view address model =
-  li
-    []
-    <| if model.expanded then
-        [ span [ class "star-count" ] [ text (toString model.stars) ]
-        , a
-            [ href ("https://github.com/" ++ model.name), target "_blank" ]
-            [ text model.name ]
-        , button
-            [ class "hide-result", onClick address Collapse ]
-            [ text "X" ]
-        ]
-       else
-        [ button
-            [ class "expand-result", onClick address Expand ]
-            [ text "Show" ]
-        ]
+view : Model -> Html Msg
+view model =
+    li []
+        <| if model.expanded then
+            [ span [ class "star-count" ] [ text (toString model.stars) ]
+            , a [ href ("https://github.com/" ++ model.name), target "_blank" ]
+                [ text model.name ]
+            , button [ class "hide-result", onClick Collapse ]
+                [ text "X" ]
+            ]
+           else
+            [ button [ class "expand-result", onClick Expand ]
+                [ text "Show" ]
+            ]