- (dist-package (package
- (inherit guix)
- (native-inputs `(("graphviz" ,graphviz)
- ("help2man" ,help2man)
- ,@(package-native-inputs guix))))
- checkout))
+ (let ((guix (@@ (gnu packages package-management) guix)))
+ (dist-package (package
+ (inherit guix)
+ (arguments (package-arguments guix))
+ (native-inputs `(("imagemagick" ,imagemagick)
+ ,@(package-native-inputs guix))))
+ checkout
+
+ #:phases
+ '(modify-phases %dist-phases
+ (add-before 'build 'build-daemon
+ ;; Build 'guix-daemon' first so that help2man
+ ;; successfully creates 'guix-daemon.1'.
+ (lambda _
+ (let ((n (number->string
+ (parallel-job-count))))
+ (zero? (system* "make"
+ "nix/libstore/schema.sql.hh"
+ "guix-daemon" "-j" n)))))))))