mirror of
https://github.com/fluencelabs/dashboard
synced 2025-04-22 14:32:13 +00:00
20 lines
673 B
Elm
20 lines
673 B
Elm
|
module Modules.View exposing (..)
|
||
|
|
|
||
|
|
import Html exposing (Html)
|
||
|
|
import Modules.Model exposing (Model, Module)
|
||
|
|
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 : Module -> 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]]
|
||
|
|
]
|
||
|
|
]
|