01/01: build-system/haskell: Fix register phase.

[Ricardo Wurmus]

rekado pushed a commit to branch core-updates
in repository guix.

commit 1767581fb50d2b97e12053aca087b6a490156f1e
Author: Ricardo Wurmus <address@hidden>
Date:   Mon Nov 12 18:21:04 2018 +0100

    build-system/haskell: Fix register phase.
    
    This is a follow-up to commit a7e231a2a3edbd6a70949432c1ff434d87f625ff.
    
    Reported by Marius Bakke <address@hidden>.
    
    * guix/build/haskell-build-system.scm (register): Use "when" instead of
    "unless".
---
 guix/build/haskell-build-system.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/build/haskell-build-system.scm 
b/guix/build/haskell-build-system.scm
index 7b556f6..23d97e6 100644
--- a/guix/build/haskell-build-system.scm
+++ b/guix/build/haskell-build-system.scm
@@ -239,7 +239,7 @@ given Haskell package."
           (list (string-append "--gen-pkg-config=" config-file))))
     (run-setuphs "register" params)
     ;; The conf file is created only when there is a library to register.
-    (unless (file-exists? config-file)
+    (when (file-exists? config-file)
       (mkdir-p config-dir)
       (let* ((config-file-name+id
               (call-with-ascii-input-file config-file (cut grep id-rx <>))))