From e833d6c4aa75336ab20c2e3843d332e627643e84 Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@ditigal.xyz>
Date: Tue, 25 Mar 2025 20:43:13 +0100
Subject: [PATCH] feat: gc root operating system derivation

---
 config.scm | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/config.scm b/config.scm
index ca0f652..ead8e5a 100644
--- a/config.scm
+++ b/config.scm
@@ -237,4 +237,29 @@
     ;; Allow resolution of '.local' host names with mDNS.
     (name-service-switch %mdns-host-lookup-nss)))
 
-%ruther/base-laptop-os
+;; Takes an operating system and gc roots its derivation
+(define (operating-system-with-build-inputs os)
+  (operating-system
+    (inherit os)
+    (services (operating-system-user-services os))
+    (services
+     (cons*
+      (simple-service 'gc-root-system-derivation
+                      gc-root-service-type
+                      (list
+                       (derivation-file-name
+                        (with-store %store
+                          (run-with-store %store
+                            (operating-system-derivation os))))
+                       (with-store %store
+                         (run-with-store %store
+                           (without-grafting
+                            (operating-system-derivation os))))
+                       (derivation-file-name
+                        (with-store %store
+                          (run-with-store %store
+                            (without-grafting
+                             (operating-system-derivation os)))))))
+      (operating-system-user-services os)))))
+
+(operating-system-with-build-inputs %ruther/base-laptop-os)
-- 
2.48.1