git-fetch recursive error

[Lucy Coleclough]

Hi there, my name is fi

I am writing to obtain help with an issue that has been occuring for about
4 days
Upon building a custom package definition which uses the git-fetch source
obtenance method and has the `recursive?` flag set to `#true` the fetch
fails seemingly due to the build environment being unable to find certain
program-s.

A file I have been using to test this is named `test.scm` and the content-s
are found here: https://paste.debian.net/1293802/ `test.scm`
Upon running this file with `guix build -L. test` on my current system, the
following output is produced: https://paste.debian.net/1293803/
`ErrorOutput`

Of note is that this test package did build on the installation system that
I use, before pulling the latest guix and after.
It also sucseeded on the target machine directly after install, it
sucseeded on the target machine after pulling the latest guix, then it
failed after reconfiguring my system using my custom config and ever since
my config is programmatically constructed but a flattened version is as
follows: https://paste.debian.net/1293805/ `FullFlatenedSystem.scm`
I have tried peeling my system definition back to a very bare one to see if
I can find a state where some problamatic element was removed but I had no
luck, all system generation-s posed the same issue
I also tried building these generation-s with solely the channel-s needed
to create them but this did not work
The most minimal system definition i used was this:
https://paste.debian.net/1293806/ `MinimalFlatenedSystem.scm`


The current item that this is blocking for me is packaging the latest glib
commit from main.
The submodule needs to be downloaded or else `meson setup` fails as there
is an empty wrap
I have tried invoking `program-file` in a gexp in a build stage and in the
fetch snippet but both attempt-s leave me unable to include `( guix gexp)`
I have tried including it in `origin`~s `modules` field, I have also tried
( `with-imported-modules` with and without `source-module-closure`) but to
no avail
When I conduct a local build of glib, `meson setup` fetches the submodule-s
then however this does not occur during the configure stage of my meson
build system package

I am unsure how to structure these request-s and I realise someone must
spend their time in order to answer this, I admit, i am flailing baby
Is the issue relating to git-fetch recursive a known issue, I have not seen
it on the issue tracker? but I want to check that I am not doing anything
wrong first
Is it true that one can not use arbitrary function-s in the origin snippet
and in the build stage-s?
Is it true that internet access during build is limited by default to the
fetch component?
And if so is there a method to allow internet access to other component-s?

Thank you for reading

( define-module
	( test)
	#:use-module ( gnu packages)
	#:use-module ( gnu packages shellutils)
	#:use-module ( gnu packages base)
	#:use-module ( guix packages)
	#:use-module ( guix build-system copy)
	#:use-module ( guix git-download)
	#:use-module ( guix gexp)
	#:use-module (
		( guix licenses)
		#:prefix license:
	)
)

( define-public
	test
	( let
		(
			( commit "16fec2068ec03bf2420188edd9840eaa241fbcf7")
		)
		( package
			( name "test")
			( version
				"0.0"
			)
			( source
				( origin
					( method git-fetch)
					( uri
						( git-reference
							( commit commit)
							( url "https://github.com/abcdw/rde";)
							( recursive? #t) ; naughty line
						)
					)
					; I have tried using import-s here and in the other input-s section but it does not work for mw
					; ( patch-inputs
					; 	( list
					; 		shell-functools
					; 		sed
					; 		coreutils
					; 	)
					; )
					( sha256
						( base32 "0x208rdyvxgww84j6cf4f02zy80ha22x066pfpl91zv8366id0lc")
					)
				)
			)
			; ( inputs
			; 	( list
			; 		shell-functools
			; 		sed
			; 		coreutils
			; 	)
			; )
			( build-system copy-build-system)
			(arguments
				(list
					#:install-plan `( list
						( list
							"doc"
							"/newDoccy"
						)
					)
				)
			)
			( home-page "")
			( synopsis "")
			( description "")
			( license license:mpl2.0)
		)
	)
)

ErrorOutput
Description: Binary data

( define-module
	( GuixConfig variationAndSource system base)
	#:use-module ( gnu)
	; Apologies for the non free software but I can not use my hardware without it, and I can not buy new hardware either
	#:use-module ( nongnu packages linux)
	#:use-module ( nongnu system linux-initrd)
	#:use-module ( rosenthal packages wm) ; hyprland
	#:use-module ( nongnu packages mozilla) ; firefox
	;
	#:use-module ( gnu services desktop)
	#:use-module ( gnu services)
	#:use-module ( gnu system accounts)
	#:use-module ( gnu system shadow)
 	#:use-module ( gnu services shepherd)
	#:use-module ( gnu services base)
	#:use-module ( gnu services dbus)
	#:use-module ( gnu services avahi)
	#:use-module ( gnu services xorg)
	#:use-module ( gnu services networking)
	#:use-module ( gnu services sound)
	#:use-module (
		( gnu system file-systems)
		#:select (
			%control-groups
			%elogind-file-systems
			file-system
		)
	)
)

( use-service-modules
	cups
	desktop
	networking
	ssh
	xorg
)
( use-package-modules
	vim ; nvim
	wm ; sway shit, waybar, wlogout
	admin ; wlgreet
	terminals ; kitty
	disk ; ranger
	version-control ; git
	certs ; nss-certs
	xdisorg ; wofi
	qt ; qtbase
)

( define-public
	baseOperatingSystem
	( operating-system
		( locale "en_GB.utf8")
		( timezone "Europe/London")
		( keyboard-layout
			( keyboard-layout "gb")
		)
		( host-name "guixSystem")
		( kernel linux)
		( initrd microcode-initrd)
		( firmware
			( list
				linux-firmware
			)
		)

		; root is implicit
		( users
			( cons*
				( user-account
					( name "lucy")
					( comment "lucy")
					( group "users")
					( home-directory "/home/lucy")
					( supplementary-groups
						'(
							"wheel"
							"netdev"
							"audio"
							"video"
						)
					)
				)
				%base-user-accounts
			)
		)

		; System wide packages
		( packages
			( append
				( list
					kitty
					nss-certs
					swayidle
					neovim
					ranger
					hyprland
					xdg-desktop-portal-hyprland
					wlogout
					qtbase
					qtwayland
					wofi
					waybar
					firefox
					wlgreet
				)
				%base-packages
			)
		)

		( services
			( append

				( modify-services
					%desktop-services
					( delete gdm-service-type)
					( delete mingetty-service-type)
					( guix-service-type
						config => ( guix-configuration
							( inherit config)
							( substitute-urls
								( append
									( list "https://substitutes.nonguix.org";)
									%default-substitute-urls
								)
							)
							( authorized-keys
								( append
									( list
										( local-file "./signing-key.pub")
									)
									%default-authorized-guix-keys
								)
							)
						)
					)
					( udev-service-type
						config => ( udev-configuration
							( inherit config)
							( rules
								( append
									( list
										( udev-rule
											"99-pixelbook-backlights.rules"
											( load "../../udevRule-s/makeIntelBacklightVideoEditable.scm")
										)
									)
									( udev-configuration-rules config) ; Combine with existing rules
								)
							)
						)
					)
				)
				( list
					( service openssh-service-type)
					( service bluetooth-service-type)
					( service cups-service-type)
					( service
						greetd-service-type
						( greetd-configuration
							( terminals
								( list
									( greetd-terminal-configuration
										( terminal-vt "1")
										( terminal-switch #t)
										( default-session-command
											( greetd-agreety-session
												( command
													( file-append
														hyprland
														"/bin/Hyprland"
													)
												)
												( command-args ( list))
											)
										)
									)
								)
							)
						)
					)
					( service
						mingetty-service-type
						( mingetty-configuration
							( tty "tty2")
						)
					)
					( service
						mingetty-service-type
						( mingetty-configuration
							( tty "tty3")
						)
					)
					( service
						mingetty-service-type
						( mingetty-configuration
							( tty "tty4")
						)
					)
					( service
						mingetty-service-type
						( mingetty-configuration
							( tty "tty5")
						)
					)
					( service
						mingetty-service-type
						( mingetty-configuration
							( tty "tty6")
						)
					)
				)
			)
		)
		( bootloader
			( bootloader-configuration
				( bootloader grub-efi-bootloader)
				( targets
					( list "/boot/efi")
				)
				( keyboard-layout keyboard-layout)
			)
		)
		( initrd-modules
			( append
				'( "mmc_block" "sdhci_pci")
				%base-initrd-modules
			)
		)
		( swap-devices
			( list
				( swap-space
					( target
						( uuid
							"6fe3d146-d233-475d-88bb-6a8e511ca117"
						)
					)
				)
			)
		)

		( file-systems
			( cons*
				( file-system
					( mount-point "/boot/efi")
					( device
						( uuid "60DA-2BE3" 'fat32)
					)
					( type "vfat")
				)
				( file-system
					( mount-point "/")
					( device
						( uuid "f7467d2c-0efa-43bc-9b17-dc4929b8026b" 'btrfs)
					)
					( type "btrfs")
				)
				%base-file-systems
			)
		)
	)
)

( define-module
	( GuixConfig variationAndSource system base)
	#:use-module ( gnu)
	; Apologies for the non free software but I can not use my hardware without it, and I can not buy new hardware either
	#:use-module ( nongnu packages linux)
	#:use-module ( nongnu system linux-initrd)
	;
	#:use-module ( gnu services desktop)
	#:use-module ( gnu services)
	#:use-module ( gnu system accounts)
	#:use-module ( gnu system shadow)
 	#:use-module ( gnu services shepherd)
	#:use-module ( gnu services base)
	#:use-module ( gnu services dbus)
	#:use-module ( gnu services avahi)
	#:use-module ( gnu services xorg)
	#:use-module ( gnu services networking)
	#:use-module ( gnu services sound)
	#:use-module (
		( gnu system file-systems)
		#:select (
			%control-groups
			%elogind-file-systems
			file-system
		)
	)
)

( use-service-modules
	cups
	desktop
	networking
	ssh
	xorg
)

( define-public
	baseOperatingSystem
	( operating-system
		( locale "en_GB.utf8")
		( timezone "Europe/London")
		( keyboard-layout
			( keyboard-layout "gb")
		)
		( host-name "guixSystem")
		( kernel linux)
		( initrd microcode-initrd)
		( firmware
			( list
				linux-firmware
			)
		)

		; root is implicit
		( users
			( cons*
				( user-account
					( name "lucy")
					( comment "lucy")
					( group "users")
					( home-directory "/home/lucy")
					( supplementary-groups
						'(
							"wheel"
							"netdev"
							"audio"
							"video"
						)
					)
				)
				%base-user-accounts
			)
		)
		( services
			( append
				%base-services
				( list
					polkit-wheel-service
					( service network-manager-service-type)
					( service wpa-supplicant-service-type)
					( service modem-manager-service-type)
					( service openssh-service-type)
				)
			)
		)
		( bootloader
			( bootloader-configuration
				( bootloader grub-efi-bootloader)
				( targets
					( list "/boot/efi")
				)
				( keyboard-layout keyboard-layout)
			)
		)
		( initrd-modules
			( append
				'( "mmc_block" "sdhci_pci")
				%base-initrd-modules
			)
		)
		( swap-devices
			( list
				( swap-space
					( target
						( uuid
							"6fe3d146-d233-475d-88bb-6a8e511ca117"
						)
					)
				)
			)
		)

		( file-systems
			( cons*
				( file-system
					( mount-point "/boot/efi")
					( device
						( uuid "60DA-2BE3" 'fat32)
					)
					( type "vfat")
				)
				( file-system
					( mount-point "/")
					( device
						( uuid "f7467d2c-0efa-43bc-9b17-dc4929b8026b" 'btrfs)
					)
					( type "btrfs")
				)
				%base-file-systems
			)
		)
	)
)