dashboard/src/Port.elm
2021-06-18 01:02:45 +03:00

50 lines
1013 B
Elm

port module Port exposing (..)
import Blueprints.Model exposing (Blueprint)
import Dict exposing (Dict)
import Json.Encode exposing (Value)
import Modules.Model exposing (Module)
import Nodes.Model exposing (Identify)
import Service.Model exposing (Interface, Service)
type alias ServiceInfo =
{ id : String
, blueprint_id : String
, owner_id : String
}
type alias CollectPeerInfo =
{ peerId : String
, identify : Maybe Identify
, services : Maybe (List ServiceInfo)
, modules : Maybe (List Module)
, blueprints : Maybe (List Blueprint)
}
port collectPeerInfo : (CollectPeerInfo -> msg) -> Sub msg
type alias CollectServiceInterface =
{ peer_id : String
, service_id : String
, interface : Interface
}
port collectServiceInterface : (CollectServiceInterface -> msg) -> Sub msg
port relayChanged : (String -> msg) -> Sub msg
type alias GetAll =
{ relayPeerId : String
, knownPeers : List String
}
port getAll : GetAll -> Cmd msg