fluencelabs/dashboard
1
0
Fork 0
mirror of https://github.com/fluencelabs/dashboard synced 2025-04-03 21:31:08 +00:00
Code Issues Projects Releases Wiki Activity

link in table

Browse Source
This commit is contained in:
DieMyst 2020-12-08 17:41:44 +03:00
parent 118b39fddf
commit ecd93f9f01
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Instances/Model.elm
View File

@ -3,6 +3,7 @@ module Instances.Model exposing (..)
type alias Instance = type alias Instance =
{ name : String { name : String
, blueprintId : String
, instance : String , instance : String
, peerId : String , peerId : String
, ip : String , ip : String

14
src/Instances/View.elm
View File

@ -2,7 +2,7 @@ module Instances.View exposing (..)
import Blueprints.Model exposing (Blueprint) import Blueprints.Model exposing (Blueprint)
import Dict exposing (Dict) import Dict exposing (Dict)
import Html exposing (Html, div, p, table, tbody, td, text, th, thead, tr) import Html exposing (Html, a, div, p, table, tbody, td, text, th, thead, tr)
import Html.Attributes exposing (attribute) import Html.Attributes exposing (attribute)
import Instances.Model exposing (Instance) import Instances.Model exposing (Instance)
import Model exposing (Model) import Model exposing (Model)
@ -14,8 +14,12 @@ import Service.Model exposing (Service)
toInstance : String -> Identify -> Dict String Blueprint -> Service -> Instance toInstance : String -> Identify -> Dict String Blueprint -> Service -> Instance
toInstance peerId identify blueprints service = toInstance peerId identify blueprints service =
let let
name = bp =
blueprints |> Dict.get service.blueprint_id |> Maybe.map .name |> Maybe.withDefault "unknown" blueprints |> Dict.get service.blueprint_id
name = bp |> Maybe.map .name |> Maybe.withDefault "unknown"
blueprintId = bp |> Maybe.map .id |> Maybe.withDefault "#"
ip = ip =
List.head identify.external_addresses List.head identify.external_addresses
@ -24,7 +28,7 @@ toInstance peerId identify blueprints service =
|> Maybe.andThen List.head |> Maybe.andThen List.head
|> Maybe.withDefault "unknown" |> Maybe.withDefault "unknown"
in in
{ name = name, instance = service.service_id, peerId = peerId, ip = ip } { name = name, blueprintId = blueprintId, instance = service.service_id, peerId = peerId, ip = ip }
view : Model -> (Service -> Bool) -> ( Int, Html msg ) view : Model -> (Service -> Bool) -> ( Int, Html msg )
@ -65,7 +69,7 @@ viewTable instances =
viewInstance : Instance -> Html msg viewInstance : Instance -> Html msg
viewInstance instance = viewInstance instance =
tr [ classes "table-red-row" ] tr [ classes "table-red-row" ]
[ td [ classes "ph3" ] [ p [classes "ws-normal"] [text instance.name ]] [ td [ classes "ph3" ] [ p [classes "ws-normal"] [ a [ attribute "href" ("/blueprint/" ++ instance.blueprintId), classes "black" ] [text instance.name ]]]
, td [ classes "ph3" ] [ p [classes "ws-normal"] [text instance.instance ]] , td [ classes "ph3" ] [ p [classes "ws-normal"] [text instance.instance ]]
, td [ classes "ph3" ] [ p [classes "ws-normal"] [text (shortHashRaw 8 instance.peerId) ]] , td [ classes "ph3" ] [ p [classes "ws-normal"] [text (shortHashRaw 8 instance.peerId) ]]
, td [ classes "ph3" ] [ p [classes "ws-normal"] [text instance.ip ]] , td [ classes "ph3" ] [ p [classes "ws-normal"] [text instance.ip ]]