Remove ResultId

2016-08-19 03:49:41 -07:00
parent dee37fa458
commit 533638108d
11 changed files with 31 additions and 71 deletions
--- a/part12/SearchResult.elm
+++ b/part12/SearchResult.elm
@@ -15,10 +15,6 @@ type alias Model =
    }


-type alias ResultId =
-    Int
-
-
 type Msg
    = Expand
    | Collapse
@@ -45,15 +41,15 @@ update msg model =

 view : Model -> Html Msg
 view model =
-    li []
-        <| if model.expanded then
+    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
+        else
            [ button [ class "expand-result", onClick Expand ]
                [ text "Show" ]
            ]