use big script, send script in relay on start

This commit is contained in:
DieMyst 2020-12-10 16:37:53 +03:00
parent 50575d7d17
commit 37432ec0d2
3 changed files with 10 additions and 8 deletions

View File

@ -96,9 +96,12 @@ air peerId relayId peers =
askRelay =
\innerAir ->
par
askRelaySchema
innerAir
seq
(callBI "relayId" ( "op", "identity" ) [] Nothing)
(par
askRelaySchema
innerAir
)
askPeers =
\innerAir ->

View File

@ -56,14 +56,12 @@ routeView model route =
getAllCmd : String -> String -> List String -> Cmd msg
getAllCmd peerId relayId knownPeers =
Cmd.batch
[ sendAir (GetAll.askRelayScript peerId relayId)
, sendAir (GetAll.askPeersScript peerId relayId knownPeers)
, sendAir (GetAll.findAndAskNeighboursScript peerId relayId)
[ sendAir (GetAll.air peerId relayId knownPeers)
]
routeCommand : Model -> Route -> Cmd msg
routeCommand m r =
routeCommand m _ =
if m.isInitialized then
Cmd.none

View File

@ -15,6 +15,7 @@ instancesText num =
else
Html.text (strNum ++ " instances")
servicesText : Int -> Html msg
servicesText num =
let
@ -25,4 +26,4 @@ servicesText num =
Html.text (strNum ++ " service")
else
Html.text (strNum ++ " services")
Html.text (strNum ++ " services")