mirror of
https://github.com/fluencelabs/dashboard
synced 2025-05-06 13:12:15 +00:00
25 lines
745 B
Elm
25 lines
745 B
Elm
module Modules.View exposing (..)
|
|
|
|
import Html exposing (Html)
|
|
import Modules.Model exposing (Model, ModuleShortInfo)
|
|
import Palette exposing (classes)
|
|
import Utils.Utils exposing (instancesText)
|
|
|
|
|
|
view : Model -> Html msg
|
|
view model =
|
|
let
|
|
modulesView =
|
|
List.map viewService model.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 ] ]
|
|
]
|
|
]
|