From 49ce64ee1e086df3b84ebd60507f3b3547a5bf0e Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Tue, 16 Dec 2025 18:48:36 +1300
Subject: Can now output the basic structural DAG of a World in DOT format

---
 src/kompsos.ads | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/kompsos.ads')

diff --git a/src/kompsos.ads b/src/kompsos.ads
index e9bbefd..15f61bb 100644
--- a/src/kompsos.ads
+++ b/src/kompsos.ads
@@ -559,6 +559,10 @@ private
 
     type World_Component_Access is access World_Component;
 
+    function "<"
+           (Left, Right : in World_Component_Access)
+        return Boolean;
+
     type Lazy_Kind is (Zero_Arg, One_Arg, Many_Arg);
 
     type Lazy_Data (Kind : Lazy_Kind) is record
-- 
cgit