Filter blueprints that have less than 4 services (#9)

This commit is contained in:
folex 2021-02-23 19:14:46 +03:00 committed by GitHub
parent a89c9f386d
commit 85957413e8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -15,17 +15,17 @@ view model =
let let
allBps = allBps =
getBlueprintsToServices model.blueprints model.discoveredPeers getBlueprintsToServices model.blueprints model.discoveredPeers
-- TODO HACK: this is a hack to filter bloat blueprints until we have a predefined list of good ones
info = filteredBps = Dict.values allBps |> List.filter (\(_, services) -> List.length services > 3)
Dict.values allBps info = List.map
|> List.map (\( bp, servicesByPeers ) ->
(\( bp, servicesByPeers ) -> { name = bp.name
{ name = bp.name , id = bp.id
, id = bp.id , author = "Fluence Labs"
, author = "Fluence Labs" , instanceNumber = List.length (servicesByPeers |> List.map (\( _, s ) -> s) |> List.concat)
, instanceNumber = List.length (servicesByPeers |> List.map (\( _, s ) -> s) |> List.concat) }
} )
) filteredBps
servicesView = servicesView =
List.map viewService info List.map viewService info