Remove ResultId

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


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


-type alias ResultId =
-    Int
-
-
 initialModel : Model
 initialModel =
    { query = "tutorial"
@@ -95,7 +91,7 @@ viewSearchResult result =
 type Msg
    = Search
    | SetQuery String
-    | DeleteById ResultId
+    | DeleteById Int
    | HandleSearchResponse (List SearchResult)
    | HandleSearchError (Maybe String)