elm format

src/Config.elm

@@ -1,5 +1,6 @@
 module Config exposing (..)
 
+
 type alias Config =
     { peerId : String
     , relayId : String

src/HubPage/Model.elm

@@ -1,5 +1,5 @@
 module HubPage.Model exposing (..)
 
+
 type alias Model =
-    {
+    {}
-    }

src/HubPage/Msg.elm

@@ -1,3 +1,5 @@
 module HubPage.Msg exposing (..)
 
-type Msg = NoOp
+
+type Msg
+    = NoOp

src/HubPage/View.elm

@@ -8,6 +8,7 @@ import Modules.View
 import Services.Model exposing (ServiceInfo)
 import Services.View
 
+
 servicesExample : List ServiceInfo
 servicesExample =
     [ { name = "SQLite", author = "Company Inc", instanceNumber = 2 }
@@ -16,6 +17,7 @@ servicesExample =
     , { name = "Imagemagick", author = "Magic Corp", instanceNumber = 0 }
     ]
 
+
 modulesExample : List ModuleInfo
 modulesExample =
     [ { name = "sqlite3", instanceNumber = 2 }
@@ -26,8 +28,10 @@ modulesExample =
     , { name = "basic_auth", instanceNumber = 0 }
     ]
 
+
 view : Model -> Html msg
-view model = Html.div []
+view model =
+    Html.div []
         [ Services.View.view { services = servicesExample }
         , Modules.View.view { modules = modulesExample }
         ]

src/Instances/Model.elm

@@ -1,10 +1,9 @@
 module Instances.Model exposing (..)
 
-type alias Instance =
-    { 
 
-    }
+type alias Instance =
+    {}
+
 
 type alias Model =
-    {
+    {}
-    }

src/Instances/Msg.elm

@@ -1,3 +1,5 @@
 module Instances.Msg exposing (..)
 
-type Msg = NoOp
+
+type Msg
+    = NoOp

src/Model.elm

@@ -29,7 +29,9 @@ type Route
 
 type alias PeerData =
     { services : List Service
-    , modules: List String }
+    , modules : List String
+    }
+
 
 emptyPeerData : PeerData
 emptyPeerData =

src/Modules/Air.elm

@@ -3,6 +3,7 @@ module Modules.Air exposing (..)
 import Air exposing (Air, callBI, fold, next, par, relayEvent, seq, set)
 import Json.Encode exposing (list, string)
 
+
 air : String -> String -> List String -> Air
 air peerId relayId peers =
     let
@@ -28,4 +29,3 @@ air peerId relayId peers =
                 )
     in
     clientIdSet <| relayIdSet <| peersSet <| airScript
-

src/Modules/Model.elm

@@ -1,10 +1,12 @@
 module Modules.Model exposing (..)
 
+
 type alias ModuleInfo =
     { name : String
     , instanceNumber : Int
     }
 
+
 type alias Model =
     { modules : List ModuleInfo
     }

src/Modules/View.elm

@@ -4,13 +4,17 @@ import Html exposing (Html)
 import Modules.Model exposing (Model, ModuleInfo)
 import Palette exposing (classes)
 import Utils.Utils exposing (instancesText)
+
+
 view : Model -> Html msg
 view model =
     let
-        modulesView = List.map viewService model.modules
+        modulesView =
+            List.map viewService model.modules
     in
     Html.div [ classes "cf ph2-ns" ] modulesView
 
+
 viewService : ModuleInfo -> Html msg
 viewService service =
     Html.div [ classes "fl w-third-ns pa2" ]

src/Palette.elm

@@ -19,12 +19,14 @@ limitations under the License.
 import Html exposing (Html)
 import Html.Attributes exposing (classList)
 
+
 classes : String -> Html.Attribute msg
 classes cls =
     classList <|
         List.map (\s -> ( s, True )) <|
             String.split " " cls
 
+
 shortHashRaw size hash =
     String.concat
         [ String.left size hash

src/Route.elm

@@ -20,6 +20,7 @@ routeParser =
 parse url =
     Maybe.withDefault (Page "") <| Url.Parser.parse routeParser url
 
+
 routeView : Route -> Html msg
 routeView route =
     case route of
@@ -27,19 +28,22 @@ routeView route =
             case page of
                 "hub" ->
                     HubPage.view {}
+
                 _ ->
                     Html.text ("undefined page: " ++ page)
 
-
         Peer peer ->
             Html.text peer
 
+
 routeCommand : Model -> Route -> Cmd msg
 routeCommand m r =
     case r of
         Page s ->
             let
-                _ = Debug.log "page" s
+                _ =
+                    Debug.log "page" s
+
                 clientId =
                     set "clientId" <| Encode.string m.peerId
 

src/Services/Air.elm

@@ -3,6 +3,7 @@ module Services.Air exposing (..)
 import Air exposing (Air, callBI, fold, next, par, relayEvent, seq, set)
 import Json.Encode exposing (list, string)
 
+
 air : String -> String -> List String -> Air
 air peerId relayId peers =
     let
@@ -28,4 +29,3 @@ air peerId relayId peers =
                 )
     in
     clientIdSet <| relayIdSet <| peersSet <| airScript
-

src/Services/Model.elm

@@ -1,34 +1,40 @@
 module Services.Model exposing (..)
 
+
 type alias Signature =
     { arguments : List (List String)
     , name : String
     , output_types : List String
     }
 
+
 type alias Record =
     { fields : List (List String)
     , id : Int
     , name : String
     }
 
+
 type alias Interface =
     { function_signatures : List Signature
     , record_types : List Record
     }
 
+
 type alias Service =
     { service_id : String
     , blueprint_id : String
     , interface : Interface
     }
 
+
 type alias ServiceInfo =
-    { name: String,
+    { name : String
-    author: String,
+    , author : String
-    instanceNumber: Int
+    , instanceNumber : Int
     }
 
+
 type alias Model =
     { services : List ServiceInfo
     }

src/Services/View.elm

@@ -5,18 +5,22 @@ 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
+        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]]
+            , Html.div [ classes "w-100" ] [ instancesText service.instanceNumber ]
+            ]
         ]

src/Update.elm

@@ -29,11 +29,12 @@ import Route
 import Services.Air
 import Url
 
+
 maybeValueToString : Maybe Value -> String
 maybeValueToString mv =
     case mv of
         Just v ->
-            case (decodeValue string v) of
+            case decodeValue string v of
                 Ok value ->
                     value
 
@@ -43,31 +44,39 @@ maybeValueToString mv =
         Nothing ->
             ""
 
+
+
 -- list of lists of strings in json to list of strings from first element if it is an array
+
+
 maybeValueToListString : Maybe Value -> List String
 maybeValueToListString mv =
     case mv of
         Just v ->
-            case (decodeValue (list (list string)) v) of
+            case decodeValue (list (list string)) v of
                 Ok value ->
                     Maybe.withDefault [] (List.head value)
 
                 Err error ->
                     let
-                        _ = Debug.log "error" error
+                        _ =
+                            Debug.log "error" error
                     in
-                        case (decodeValue (list string) v) of
+                    case decodeValue (list string) v of
                         Ok value ->
                             value
+
                         Err err ->
                             let
-                                    _ = Debug.log "err" err
+                                _ =
+                                    Debug.log "err" err
                             in
                             [ "error" ]
 
         Nothing ->
             []
 
+
 update : Msg -> Model -> ( Model, Cmd Msg )
 update msg model =
     case msg of
@@ -95,37 +104,60 @@ update msg model =
         AquamarineEvent { name, peer, peers, services, modules } ->
             case name of
                 "peers_discovered" ->
-                    -- TODO call different function to parse args and change model
                     let
-                        peersMap = List.map (\p -> Tuple.pair p emptyPeerData) (withDefault [] peers)
+                        peersMap =
-                        newDict = Dict.fromList (peersMap)
+                            List.map (\p -> Tuple.pair p emptyPeerData) (withDefault [] peers)
-                        updatedDict = Dict.union model.discoveredPeers newDict
+
+                        newDict =
+                            Dict.fromList peersMap
+
+                        updatedDict =
+                            Dict.union model.discoveredPeers newDict
                     in
-                    -- TODO get data from args, propagate
                     ( { model | discoveredPeers = updatedDict }, Cmd.none )
 
                 "services_discovered" ->
                     let
-                        newServices = Maybe.withDefault [] services
+                        newServices =
-                        empty = emptyPeerData
+                            Maybe.withDefault [] services
-                        up = (\old -> Just (Maybe.withDefault {empty | services = newServices} (Maybe.map (\o -> {o | services = newServices}) old)))
+
-                        updatedDict = Dict.update peer up model.discoveredPeers
+                        empty =
-                        _ = Debug.log "discovered" updatedDict
+                            emptyPeerData
+
+                        up =
+                            \old -> Just (Maybe.withDefault { empty | services = newServices } (Maybe.map (\o -> { o | services = newServices }) old))
+
+                        updatedDict =
+                            Dict.update peer up model.discoveredPeers
+
+                        _ =
+                            Debug.log "discovered" updatedDict
                     in
                     ( { model | discoveredPeers = updatedDict }, Cmd.none )
+
                 "modules_discovered" ->
                     let
-                        newModules = Maybe.withDefault [] modules
+                        newModules =
-                        empty = emptyPeerData
+                            Maybe.withDefault [] modules
-                        up = (\old -> Just (Maybe.withDefault {empty | modules = newModules} (Maybe.map (\o -> {o | modules = newModules}) old)))
+
-                        updatedDict = Dict.update peer up model.discoveredPeers
+                        empty =
-                        _ = Debug.log "discovered" updatedDict
+                            emptyPeerData
+
+                        up =
+                            \old -> Just (Maybe.withDefault { empty | modules = newModules } (Maybe.map (\o -> { o | modules = newModules }) old))
+
+                        updatedDict =
+                            Dict.update peer up model.discoveredPeers
+
+                        _ =
+                            Debug.log "discovered" updatedDict
                     in
                     ( { model | discoveredPeers = updatedDict }, Cmd.none )
 
                 _ ->
                     let
-                        _ = Debug.log "event in ELM" name
+                        _ =
+                            Debug.log "event in ELM" name
                     in
                     ( model, Cmd.none )
 

src/Utils/Utils.elm

@@ -2,12 +2,15 @@ module Utils.Utils exposing (..)
 
 import Html exposing (Html)
 
+
 instancesText : Int -> Html msg
 instancesText num =
     let
-        strNum = String.fromInt num
+        strNum =
+            String.fromInt num
     in
     if num == 1 then
         Html.text (strNum ++ " instance")
+
     else
         Html.text (strNum ++ " instances")

src/View.elm

@@ -39,15 +39,19 @@ title _ =
 body : Model -> Html Msg
 body model =
     let
-        a = 1
+        a =
-        url = model.url
+            1
-        newUrl = { url | path = "/hub"}
+
+        url =
+            model.url
+
+        newUrl =
+            { url | path = "/hub" }
     in
     layout <|
         List.concat
-                [
+            [ [ header [ classes "w-100 bt bb b--black-10" ] [ routeView (Page "hub") ] ]
-                    [ header [ classes "w-100 bt bb b--black-10" ] [ routeView (Page "hub") ] ] ++
+                ++ [ header [ classes "w-100 bt bb b--black-10", onClick Click ] [ text "GET SERVICES" ] ]
-                    [ header [ classes "w-100 bt bb b--black-10", onClick Click ] [ text "GET SERVICES" ] ]
             ]
 
 
@@ -55,8 +59,7 @@ layout : List (Html Msg) -> Html Msg
 layout elms =
     div [ classes "mw9 center w-70" ]
         [ div [ classes "fl w-100 pa2" ]
-            ([
+            ([]
-             ]
                 ++ elms
             )
         ]