summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2022-10-24 03:25:25 +0200
committerVivien Kraus <vivien@planete-kraus.eu>2022-10-24 03:26:45 +0200
commit9e974e8ef1c1997729037dc92b55232b4c7abc12 (patch)
treebe2e1d874157cbcf7d3cad0d6f8d43a1ce4a67da
parent320691c3efe2b3e2ec926e15d62914523a3c6963 (diff)
Make sure that the generated source is self-contained.
-rw-r--r--disfluid/maintainer/channel-code.scm37
1 files changed, 23 insertions, 14 deletions
diff --git a/disfluid/maintainer/channel-code.scm b/disfluid/maintainer/channel-code.scm
index 4b8d4ac..36a66e8 100644
--- a/disfluid/maintainer/channel-code.scm
+++ b/disfluid/maintainer/channel-code.scm
@@ -65,24 +65,33 @@
(guix profiles)
(guix scripts pack)
(guix gexp)
+ (guix modules)
,@modules)))))
(define (fix-source _)
`(source
- (directory-union
+ (computed-file
"source-with-translations"
- (list
- (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://labo.planete-kraus.eu/disfluid.git")
- (commit #$disfluid-commit)))
- (sha256 (base32 #$disfluid-hash)))
- (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://labo.planete-kraus.eu/disfluid.git")
- (commit #$disfluid-translations-commit)))
- (sha256 (base32 #$disfluid-translations-hash)))))))
+ (with-imported-modules
+ (source-module-closure '((guix build utils)))
+ #~(begin
+ (use-modules (guix build utils))
+ (copy-recursively
+ (#$(string->symbol "ungexp")
+ (directory-union
+ "source-with-translations-linked"
+ (list
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://labo.planete-kraus.eu/disfluid.git")
+ (commit #$disfluid-commit)))
+ (sha256 (base32 #$disfluid-hash)))
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://labo.planete-kraus.eu/disfluid.git")
+ (commit #$disfluid-translations-commit)))
+ (sha256 (base32 #$disfluid-translations-hash))))))))))))
(define (fix-arguments args)
`(arguments
(,kwasikwot