get list of instance info

src/Instances/View.elm

@@ -1,21 +1,40 @@
 module Instances.View exposing (..)
 
+import Dict exposing (Dict)
 import Html exposing (Html, div, table, tbody, td, text, th, thead, tr)
 import Html.Attributes exposing (attribute)
 import Instances.Model exposing (Instance)
 import Model exposing (Model)
+import Nodes.Model exposing (Identify)
 import Palette exposing (classes)
+import Services.Model exposing (Service)
+
+
+toInstance : String -> Identify -> Dict String String -> Service -> Instance
+toInstance peerId identify blueprints service =
+    let
+        name =
+            blueprints |> Dict.get service.blueprint_id |> Maybe.withDefault "unknown"
+        ip =
+            List.head identify.external_addresses |> Maybe.withDefault "unknown"
+    in
+    { name = name, instance = service.service_id, peerId = peerId, ip = ip }
 
 
 view : Model -> Html msg
 view model =
     let
+        bps =
+            Dict.values model.discoveredPeers |> List.map (\data -> data.blueprints |> List.map (\b -> ( b.id, b.name )))
+
+        bpsDict =
+            List.concat bps |> Dict.fromList
+
         instances =
-            [ { name = "SQLite", instance = "efrer3434g", peerId = "kljn35kfj4n5kjgn4k5jgn45kj", ip = "123.123.123.123" }
+            Dict.toList model.discoveredPeers
-            , { name = "SQLite", instance = "efrer3434g", peerId = "kljn35kfj4n5kjgn4k5jgn45kj", ip = "123.123.123.123" }
+                |> List.map (\( peer, data ) -> data.services
-            , { name = "SQLite", instance = "efrer3434g", peerId = "kljn35kfj4n5kjgn4k5jgn45kj", ip = "123.123.123.123" }
+                    |> List.map (toInstance peer data.identify bpsDict))
-            , { name = "SQLite", instance = "efrer3434g", peerId = "kljn35kfj4n5kjgn4k5jgn45kj", ip = "123.123.123.123" }
+                        |> List.concat
-            ]
     in
     viewTable instances