dashboard/src/Services/View.elm

module Services.View exposing (..)

import Html exposing (Html)
import Palette exposing (classes)
import Services.Model exposing (Model, ServiceInfo)
import Utils.Utils exposing (instancesText)

view : Model -> Html msg
view model =
    let
        servicesView = List.map viewService model.services
    in
        Html.div [classes "cf ph2-ns"] servicesView

viewService : ServiceInfo -> Html msg
viewService service =
    Html.div [classes "fl w-third-ns pa2"]
    [ Html.div [classes "fl w-100 br2 ba solid ma2 pa3"]
    [ Html.div [classes "w-100 mb2 b"] [Html.text service.name]
    , Html.div [classes "w-100 mb4"] [Html.text ("By " ++ service.author)]
    , Html.div [classes "w-100"] [instancesText service.instanceNumber]]
    ]