41/44: gnu: ghc-http: Prevent embedding of spurious references.

[guix-commits]

rekado pushed a commit to branch wip-haskell
in repository guix.

commit 54f0ad941abdadeedea818d41b72c05ee177cfb7
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Sat Jun 27 22:36:14 2020 +0200

    gnu: ghc-http: Prevent embedding of spurious references.
    
    * gnu/packages/haskell-web.scm (ghc-http)[arguments]: Add build phase
    "create-simple-paths-module" to avoid retaining unnecessary references.
---
 gnu/packages/haskell-web.scm | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/haskell-web.scm b/gnu/packages/haskell-web.scm
index 5931fca..b9474c9 100644
--- a/gnu/packages/haskell-web.scm
+++ b/gnu/packages/haskell-web.scm
@@ -197,7 +197,23 @@ both client and server code).")
        ("ghc-network-uri" ,ghc-network-uri)
        ("ghc-split" ,ghc-split)))
     (arguments
-     `(#:tests? #f)) ; FIXME: currently missing libraries used for tests.
+     `(#:tests? #f  ; FIXME: currently missing libraries used for tests.
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'create-simple-paths-module
+           (lambda _
+             (call-with-output-file "Paths_HTTP.hs"
+               (lambda (port)
+                 (format port "\
+{-# LANGUAGE CPP #-}
+{-# LANGUAGE NoRebindableSyntax #-}
+{-# OPTIONS_GHC -fno-warn-missing-import-lists #-}
+module Paths_HTTP (version) where
+import Data.Version (Version(..))
+version :: Version
+version = Version [~a] []
+" (string-map (lambda (chr) (if (eq? chr #\.) #\, chr)) ,version))))
+             #t)))))
     (home-page "https://github.com/haskell/HTTP";)
     (synopsis "Library for client-side HTTP")
     (description