fluencelabs/dashboard
1
0
Fork 0
mirror of https://github.com/fluencelabs/dashboard synced 2025-04-01 20:31:07 +00:00
Code Issues Projects Releases Wiki Activity

eml-format

Browse Source
This commit is contained in:
DieMyst 2020-11-26 03:00:03 +03:00
parent 46265db4c8
commit 5bac4d8e6f
5 changed files with 51 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/ModulePage/Model.elm
View File

@ -2,6 +2,7 @@ module ModulePage.Model exposing (..)
import Services.Model exposing (Service)
type alias ModuleInfo =
{ name : String
, id : String

27
src/ModulePage/View.elm
View File

@ -7,14 +7,16 @@ import Palette exposing (classes)
import Services.Model exposing (Record, Signature)
import String.Interpolate exposing (interpolate)
view : ModuleInfo -> Html msg
view moduleInfo =
Html.div [ classes "cf ph2-ns" ]
[ Html.span [ classes "fl w-100 f1 lh-title dark-red" ] [ Html.text ("Module: " ++ moduleInfo.name) ]
, Html.span [classes "fl w-100 light-red"] [Html.text (moduleInfo.id)]
, Html.span [ classes "fl w-100 light-red" ] [ Html.text moduleInfo.id ]
, viewInfo moduleInfo
]
viewInfo : ModuleInfo -> Html msg
viewInfo moduleInfo =
Html.article [ classes "cf" ]
@ -23,40 +25,45 @@ viewInfo moduleInfo =
, Html.div [ classes "fl w-30 gray mv1" ] [ Html.text "DESCRIPTION" ]
, Html.div [ classes "fl w-70 mv1" ] [ Html.span [ classes "fl w-100 black" ] [ Html.text moduleInfo.description ] ]
, Html.div [ classes "fl w-30 gray mv1" ] [ Html.text "INTERFACE" ]
, Html.div [classes "fl w-70 mv1"] [ Html.span [classes "fl w-100 black"] ((recordsView moduleInfo.service.interface.record_types) ++ (signaturesView moduleInfo.service.interface.function_signatures))]
, Html.div [ classes "fl w-70 mv1" ] [ Html.span [ classes "fl w-100 black" ] (recordsView moduleInfo.service.interface.record_types ++ signaturesView moduleInfo.service.interface.function_signatures) ]
]
recordsView : List Record -> List (Html msg)
recordsView record =
(List.map recordView record)
List.map recordView record
recordView : Record -> Html msg
recordView record =
Html.div [ classes "i" ]
([Html.span [classes "fl w-100 mt2"] [Html.text (record.name ++ " {")]] ++
fieldsView record.fields ++
[Html.span [classes "fl w-100 mb2"] [Html.text ("}")]])
([ Html.span [ classes "fl w-100 mt2" ] [ Html.text (record.name ++ " {") ] ]
++ fieldsView record.fields
++ [ Html.span [ classes "fl w-100 mb2" ] [ Html.text "}" ] ]
)
fieldsView : List (List String) -> List (Html msg)
fieldsView fields =
(fields |> List.map (\f -> Html.span [classes "fl w-100 ml2"] [Html.text (String.join ": " f)] ))
fields |> List.map (\f -> Html.span [ classes "fl w-100 ml2" ] [ Html.text (String.join ": " f) ])
signaturesView : List Signature -> List (Html msg)
signaturesView signatures =
(List.map signatureView signatures)
List.map signatureView signatures
signatureView : Signature -> Html msg
signatureView signature =
Html.div [ classes "i fl w-100 mv2" ]
[Html.text (interpolate "fn {0}({1}) -> {2}" [signature.name, (argumentsToString signature.arguments), (outputToString signature.output_types)])]
[ Html.text (interpolate "fn {0}({1}) -> {2}" [ signature.name, argumentsToString signature.arguments, outputToString signature.output_types ]) ]
argumentsToString : List (List String) -> String
argumentsToString arguments =
String.join ", " (arguments |> List.map (String.join ": "))
outputToString : List String -> String
outputToString output =
output |> List.head |> Maybe.withDefault "void"

14
src/Route.elm
View File

@ -33,9 +33,14 @@ routeView model route =
"module" ->
let
up = (\(pid, p) -> Maybe.map (\a -> Tuple.pair pid a) (List.head (List.drop 0 p.services)))
el = (List.head (List.drop 3 (Dict.toList model.discoveredPeers)))
_ = Debug.log "el" el
up =
\( pid, p ) -> Maybe.map (\a -> Tuple.pair pid a) (List.head (List.drop 0 p.services))
el =
List.head (List.drop 3 (Dict.toList model.discoveredPeers))
_ =
Debug.log "el" el
in
case Maybe.andThen up el of
Just ( peerId, service ) ->
@ -55,9 +60,6 @@ routeView model route =
Nothing ->
Html.text "alala"
_ ->
Html.text ("undefined page: " ++ page)

2
src/Update.elm
View File

@ -129,7 +129,6 @@ update msg model =
updatedDict =
Dict.update peer up model.discoveredPeers
in
( { model | discoveredPeers = updatedDict }, Cmd.none )
@ -146,7 +145,6 @@ update msg model =
updatedDict =
Dict.update peer up model.discoveredPeers
in
( { model | discoveredPeers = updatedDict }, Cmd.none )