From 78e3d745685907dc711f839488e9be997e1cba68 Mon Sep 17 00:00:00 2001
From: Matthew Salerno <m@salernosection.com>
Date: Fri, 25 Aug 2023 19:12:39 -0400
Subject: [PATCH] Fixed groups not bieng parsed correctly

---
 parsers/v1.nix | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/parsers/v1.nix b/parsers/v1.nix
index 668732a..776ba75 100644
--- a/parsers/v1.nix
+++ b/parsers/v1.nix
@@ -83,13 +83,13 @@ let
   /** getEndpoint :: acl_peer -> acl_peer -> ic_endpoint */
   getEndpoint = acl_subnet: acl_peerFrom: acl_peerTo:
     let
-      peersForEndpoint = endpoint: catAttrs "name" (selectPeers (if endpoint ? match then endpoint.match else []));
+      peersForEndpoint = endpoint: catAttrs "name" (selectPeers (attrByPath ["match"] [] endpoint));
       allPeerEndpoints = if acl_peerTo ? endpoints then
           (filter (endpoint: elem acl_peerFrom.name (peersForEndpoint endpoint)) acl_peerTo.endpoints)
         else [];
-      allGroupEndpoints = concatMap (acl_group: acl_group.endpoints) (intersectLists 
-        (if acl_peerTo ? groups then acl_peerTo.groups else [])
-        (if acl_peerFrom ? groups then acl_peerTo.groups else [])
+      allGroupEndpoints = concatMap (acl_group: attrByPath ["endpoints"] [] (groupFromName acl_group)) (intersectLists 
+        (attrByPath ["groups"] [] acl_peerTo)
+        (attrByPath ["groups"] [] acl_peerFrom)
       );
       allSubnetEndpoints = acl_subnet.endpoints;
       allEndpointMatches = allSubnetEndpoints ++ allGroupEndpoints ++ allPeerEndpoints;