SPA for part10

part10/Pages/Repository.elm

@@ -0,0 +1,37 @@
+module Pages.Repository exposing (..)
+
+import Html exposing (..)
+import Html.Attributes exposing (class, target, href, property, defaultValue)
+import ElmHub exposing (SearchResult)
+
+
+type alias Model =
+    SearchResult
+
+
+init : Int -> ( Model, Cmd Msg )
+init id =
+    ( { id = id
+      , name = ""
+      , stars = id
+      }
+    , Cmd.none
+    )
+
+
+view : Model -> Html Msg
+view model =
+    div []
+        [ div [] [ text ("repo" ++ toString model.stars) ]
+        ]
+
+
+type Msg
+    = NoOp
+
+
+update : Msg -> Model -> ( Model, Cmd Msg )
+update msg model =
+    case msg of
+        NoOp ->
+            ( model, Cmd.none )