From 4d471f0b706733624a845143cafb6dd8add90eed Mon Sep 17 00:00:00 2001
From: Trygve Laugstøl <trygvis@inamo.no>
Date: Tue, 14 Nov 2023 14:19:55 +0100
Subject: wip

---
 6/bgp.pl | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to '6/bgp.pl')

diff --git a/6/bgp.pl b/6/bgp.pl
index 6d16500..d398c4c 100644
--- a/6/bgp.pl
+++ b/6/bgp.pl
@@ -72,9 +72,9 @@ router_path(X, Y, V) :- \+ member(X, V), router_link(X, _, Z), router_path(Z, Y,
 to_dict(router(R), Dict) :- 
   neighbors(R, Neighbors),
   maplist(to_dict(), Neighbors, NeighborDicts),
-  Dict = _{
-    host: R,
-    neighbors: NeighborDicts}.
+  Dict = R-_{
+    neighbors: NeighborDicts
+  }.
 
 to_dict(neighbor(_, Remote), Dict) :- host_config(Remote, RC),
   Dict = neighbor{
@@ -84,6 +84,7 @@ to_dict(neighbor(_, Remote), Dict) :- host_config(Remote, RC),
   }
 }.
 
-bird_config(RouterDicts) :-
+bird_config(BirdConfig) :-
   routers(Routers),
-  maplist(to_dict(), Routers, RouterDicts).
+  maplist(to_dict(), Routers, RouterDicts),
+  dict_pairs(BirdConfig, bird_config, RouterDicts).
-- 
cgit v1.2.3