Remove ResultId

2016-08-19 03:49:41 -07:00
parent dee37fa458
commit 533638108d
11 changed files with 31 additions and 71 deletions
--- a/part9/ElmHub.elm
+++ b/part9/ElmHub.elm
@@ -45,16 +45,12 @@ type alias Model =


 type alias SearchResult =
-    { id : ResultId
+    { id : Int
    , name : String
    , stars : Int
    }


-type alias ResultId =
-    Int
-
-
 initialModel : Model
 initialModel =
    { query = "tutorial"
@@ -96,7 +92,7 @@ viewSearchResult result =
 type Msg
    = Search
    | SetQuery String
-    | DeleteById ResultId
+    | DeleteById Int
    | HandleSearchResponse (List SearchResult)
    | HandleSearchError Http.Error
    | DoNothing