mirror of
https://github.com/fluencelabs/dashboard
synced 2025-05-09 22:52:13 +00:00
44 lines
1.6 KiB
Elm
44 lines
1.6 KiB
Elm
module Modules.View exposing (..)
|
|
|
|
import Dict exposing (Dict)
|
|
import Html exposing (Html)
|
|
import Model exposing (Model, PeerData)
|
|
import Modules.Model exposing (ModuleShortInfo)
|
|
import Palette exposing (classes)
|
|
import Utils.Utils exposing (instancesText)
|
|
|
|
getModuleShortInfo : Model -> List ModuleShortInfo
|
|
getModuleShortInfo model =
|
|
getAllModules model.discoveredPeers |> Dict.toList |> List.map (\(moduleName, peers) -> {name = moduleName, instanceNumber = List.length peers})
|
|
|
|
getAllModules : Dict String PeerData -> Dict String (List String)
|
|
getAllModules peerData =
|
|
let
|
|
peerDatas = Dict.toList peerData
|
|
allModules = peerDatas |> List.map (\(peer, pd) -> pd.modules |> List.map (\ms -> (peer, ms))) |> List.concat
|
|
peersByModuleName = allModules |> List.foldr updateDict Dict.empty
|
|
in
|
|
peersByModuleName
|
|
|
|
updateDict : (String, String) -> Dict String (List String) -> Dict String (List String)
|
|
updateDict (peer, moduleName) dict =
|
|
dict |> Dict.update moduleName (\oldM -> oldM |> Maybe.map (List.append [peer]) |> Maybe.withDefault [peer] |> Just)
|
|
|
|
|
|
view : Model -> Html msg
|
|
view modules =
|
|
let
|
|
modulesView =
|
|
List.map viewService (getModuleShortInfo modules)
|
|
in
|
|
Html.div [ classes "cf ph2-ns" ] modulesView
|
|
|
|
|
|
viewService : ModuleShortInfo -> Html msg
|
|
viewService service =
|
|
Html.div [ classes "fl w-third-ns pa2" ]
|
|
[ Html.div [ classes "fl w-100 br2 ba solid pa2 mh2" ]
|
|
[ Html.p [ classes "tl di" ] [ Html.span [ classes "b pl2" ] [ Html.text service.name ], Html.span [ classes "di fr pr2" ] [ instancesText service.instanceNumber ] ]
|
|
]
|
|
]
|