From e7570ec2da04af83eba695ded92eb824172b15c3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 26 Mar 2020 12:25:37 +0100
Subject: profiles: 'profile-derivation' sets a 'type' property.

* guix/profiles.scm (profile-derivation): Pass #:properties to
'gexp->derivation'.
---
 guix/profiles.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/guix/profiles.scm b/guix/profiles.scm
index 20a2973579..3a6498993c 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -1590,7 +1590,13 @@ are cross-built for TARGET."
                       ;; Disable substitution because it would trigger a
                       ;; connection to the substitute server, which is likely
                       ;; to have no substitute to offer.
-                      #:substitutable? #f)))
+                      #:substitutable? #f
+
+                      #:properties `((type . profile)
+                                     (profile
+                                      (count
+                                       . ,(length
+                                           (manifest-entries manifest))))))))
 
 (define* (profile-search-paths profile
                                #:optional (manifest (profile-manifest profile))
-- 
cgit v1.2.3