combine all modules

This commit is contained in:
DieMyst 2020-11-26 22:26:39 +03:00
parent a3bce9f135
commit 39cb18306e

View File

@ -23,6 +23,7 @@ import Browser.Navigation as Nav
import Dict
import Json.Decode exposing (decodeValue, list, string)
import Json.Encode exposing (Value)
import List.Unique exposing (filterDuplicates)
import Maybe exposing (withDefault)
import Model exposing (Model, emptyPeerData)
import Modules.Air
@ -173,3 +174,12 @@ updateModel model peer identify services modules blueprints =
in
{ model | discoveredPeers = updated }
getAllModules : Model -> List String
getAllModules model =
let
peerDatas = Dict.values model.discoveredPeers
allModules = peerDatas |> List.map (\pd -> pd.modules)
flatten = List.foldr (++) [] (allModules)
modulesUnique = filterDuplicates (flatten)
in
modulesUnique