From 85957413e8a06a72e3ebd5b4bf50daf76c1d42b6 Mon Sep 17 00:00:00 2001
From: folex <0xdxdy@gmail.com>
Date: Tue, 23 Feb 2021 19:14:46 +0300
Subject: [PATCH] Filter blueprints that have less than 4 services (#9)

---
 src/Blueprints/View.elm | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

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