From 8062753241f2c510c94b0fec6f2552950e0c8014 Mon Sep 17 00:00:00 2001
From: Trygve Laugstøl <trygvis@inamo.no>
Date: Thu, 23 Nov 2023 22:57:55 +0100
Subject: wip

---
 7/main.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to '7/main.pl')

diff --git a/7/main.pl b/7/main.pl
index 684708f..393ad55 100644
--- a/7/main.pl
+++ b/7/main.pl
@@ -22,10 +22,10 @@ print_warnings :-
   ; format("No warnings!~n", [])
   ).
 
-rm_rf(Dir) :-
+rm_rf(Parents) :-
+  path_segments(Dir, Parents),
   directory_files(Dir, Files),
-  path_segments(Dir, Ps),
-  rm_rf_files(Ps, Files).
+  rm_rf_files(Parents, Files).
 
 rm_rf_files(_, []).
 rm_rf_files(Parents, [D|Dir]) :-
@@ -47,6 +47,6 @@ rm_rf_files(Parents, [D|Dir]) :-
 main :-
   bgp:create_firewall,
   print_warnings,
-  bgp:bird_config(BirdDict),
-  rm_rf("host_vars"),
-  yaml_write(current_output, BirdDict).
+  path_segments("host_vars", Path),
+  rm_rf(Path),
+  firewall:write(Path).
-- 
cgit v1.2.3