aligns, margins, elm format

src/BlueprintPage/View.elm

@@ -23,7 +23,8 @@ view model id =
     case blueprintInfo of
         Just bi ->
             let
-                (instanceNum, instanceView) = Instances.View.view model (\service -> service.blueprint_id == id)
+                ( instanceNum, instanceView ) =
+                    Instances.View.view model (\service -> service.blueprint_id == id)
             in
             div [ classes "fl w-100 cf ph2-ns" ]
                 [ div [ classes "fl w-100 mb2 pt2" ]
@@ -31,7 +32,7 @@ view model id =
                     , span [ classes "fl w-100 light-red" ] [ text bi.id ]
                     ]
                 , div [ classes "fl w-100 bg-white mt2 mh2 ph4 pt3 mb4 pb2" ] [ viewInfo bi ]
-                    , h3 [ classes "pt3" ] [ text ("Instances (" ++ (String.fromInt instanceNum) ++ ")") ]
+                , h3 [ classes "pt3" ] [ text ("Instances (" ++ String.fromInt instanceNum ++ ")") ]
                 , div [ classes "mt2 bg-white" ]
                     [ instanceView ]
                 ]
@@ -44,12 +45,14 @@ view model id =
 
 blueprintToInfo : Model -> String -> Maybe BlueprintViewInfo
 blueprintToInfo model id =
-        case (Dict.get id model.blueprints) of
+    case Dict.get id model.blueprints of
         Just bp ->
             let
-                    modules = bp.dependencies |> List.map (\d -> Dict.get d model.modules) |> List.filterMap identity
+                modules =
+                    bp.dependencies |> List.map (\d -> Dict.get d model.modules) |> List.filterMap identity
             in
-                    Just { name = bp.name
+            Just
+                { name = bp.name
                 , id = id
                 , author = "Fluence Labs"
                 , authorPeerId = "fluence_labs_peer_id"
@@ -64,35 +67,49 @@ blueprintToInfo model id =
             Nothing
 
 
-
 viewInfo : BlueprintViewInfo -> Html Msg
 viewInfo blueprintInfo =
     let
-        checkToggle = (\id -> blueprintInfo.openedModule |> Maybe.map (\om -> om == id) |> Maybe.withDefault False)
+        checkToggle =
+            \id -> blueprintInfo.openedModule |> Maybe.map (\om -> om == id) |> Maybe.withDefault False
     in
     article [ classes "cf" ]
         [ div [ classes "fl w-30 gray mv1" ] [ text "AUTHOR" ]
         , div [ classes "fl w-70 mv1" ]
             [ span [ classes "fl w-100 black b" ] [ text blueprintInfo.author ]
-                , span [ classes "fl w-100 black" ] [ text blueprintInfo.authorPeerId ] ]
+            , span [ classes "fl w-100 black" ] [ text blueprintInfo.authorPeerId ]
+            ]
         , div [ classes "fl w-30 gray mv1" ] [ text "DESCRIPTION" ]
         , div [ classes "fl w-70 mv1" ] [ span [ classes "fl w-100 black" ] [ text blueprintInfo.description ] ]
         , div [ classes "fl w-30 gray mv1" ] [ text "INTERFACE" ]
         , div [ classes "fl w-70 mv1" ]
-                (blueprintInfo.modules |>
+            (blueprintInfo.modules
-                    List.map (\m -> viewToggledInterface (checkToggle m.name) m.name m.interface))
+                |> List.map (\m -> viewToggledInterface (checkToggle m.name) m.name m.interface)
+            )
         ]
 
 
 viewToggledInterface : Bool -> String -> Interface -> Html Msg
 viewToggledInterface isOpen name interface =
     let
-        interfaceView = if (isOpen) then [(div [classes "fl w-100 ph4"] (instanceView interface))] else []
+        interfaceView =
+            if isOpen then
+                [ div [ classes "fl w-100 ph4" ] (instanceView interface) ]
+
+            else
+                []
     in
     div []
         ([ div [ classes "fl w-100 shadow-2 bg-near-white pa2 mv2 pointer", onClick (ToggleInterface name) ]
             [ span [ classes "fl mh2 pv1 tl" ] [ text name ]
-            , div [ classes "o-40 f4 tr pr3" ] [if (isOpen) then text "▲" else text "▼"]] ]
+            , div [ classes "o-40 f4 tr pr3" ]
-        ++ interfaceView)
+                [ if isOpen then
-
+                    text "▲"
 
+                  else
+                    text "▼"
+                ]
+            ]
+         ]
+            ++ interfaceView
+        )

src/Blueprints/View.elm

@@ -17,7 +17,9 @@ view model =
             getBlueprintsToServices model.blueprints model.discoveredPeers
 
         info =
-            Dict.values allBps |> List.map (\( bp, servicesByPeers ) ->
+            Dict.values allBps
+                |> List.map
+                    (\( bp, servicesByPeers ) ->
                         { name = bp.name
                         , id = bp.id
                         , author = "Fluence Labs"

src/ModulePage/View.elm

@@ -19,16 +19,21 @@ view model id =
     case moduleInfo of
         Just mi ->
             let
-                check = Maybe.map (\bp -> bp.dependencies |> List.member id )
+                check =
-                filter = (\s -> model.blueprints |> Dict.get s.blueprint_id |> check |> Maybe.withDefault False)
+                    Maybe.map (\bp -> bp.dependencies |> List.member id)
-                (instanceNum, instanceView) = Instances.View.view model filter
+
+                filter =
+                    \s -> model.blueprints |> Dict.get s.blueprint_id |> check |> Maybe.withDefault False
+
+                ( instanceNum, instanceView ) =
+                    Instances.View.view model filter
             in
             div [ classes "fl w-100 cf ph2-ns" ]
                 [ div [ classes "fl w-100 mb2 pt2" ]
                     [ span [ classes "fl w-100 f1 lh-title dark-red" ] [ text ("Module: " ++ mi.name) ]
                     ]
                 , div [ classes "fl w-100 bg-white mt2 mh2 ph4 pt3" ] [ viewInfo mi ]
-                    , h3 [ classes "pt3" ] [ text ("Instances (" ++ (String.fromInt instanceNum) ++ ")") ]
+                , h3 [ classes "pt3" ] [ text ("Instances (" ++ String.fromInt instanceNum ++ ")") ]
                 , div [ classes "fl w-100 mt2 bg-white" ] [ instanceView ]
                 ]
 

src/Update.elm

@@ -96,11 +96,20 @@ update msg model =
         ToggleInterface id ->
             case model.toggledInterface of
                 Just ti ->
-                    ( { model | toggledInterface = if (id == ti) then Nothing else Just id }, Cmd.none )
+                    ( { model
+                        | toggledInterface =
+                            if id == ti then
+                                Nothing
+
+                            else
+                                Just id
+                      }
+                    , Cmd.none
+                    )
+
                 Nothing ->
                     ( { model | toggledInterface = Just id }, Cmd.none )
 
-
         RelayChanged relayId ->
             ( { model | relayId = relayId }, Cmd.none )