diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2021-09-19 11:10:16 +0200 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2021-10-08 09:13:52 +0200 |
| commit | b74ca403cbb11c60d57b6a0148d97c6572019754 (patch) | |
| tree | 527fbd8e38b4d32f5b2534dbe004231656007bca | |
| parent | edd912a128cf467050c1a76a021d91ea8b90e759 (diff) | |
| download | guix-b74ca403cbb11c60d57b6a0148d97c6572019754.tar.gz guix-b74ca403cbb11c60d57b6a0148d97c6572019754.zip | |
build-system/haskell: Explain failure.
Provide human-readable failure message and explain how to fix it.
* guix/build/haskell-build-system.scm (register): Raise error if source
file does not exist.
| -rw-r--r-- | guix/build/haskell-build-system.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/guix/build/haskell-build-system.scm b/guix/build/haskell-build-system.scm index 4d0bf6f38a..ef6cb316ee 100644 --- a/guix/build/haskell-build-system.scm +++ b/guix/build/haskell-build-system.scm @@ -217,6 +217,8 @@ given Haskell package." (if (not (vhash-assoc id seen)) (let ((dep-conf (string-append src "/" id ".conf")) (dep-conf* (string-append dest "/" id ".conf"))) + (when (not (file-exists? dep-conf)) + (error (format #f "File ~a does not exist. This usually means the dependency ~a is missing. Was checking conf-file ~a." dep-conf id conf-file))) (copy-file dep-conf dep-conf*) ;XXX: maybe symlink instead? (loop (vhash-cons id #t seen) (append lst (conf-depends dep-conf)))) |