mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-01 07:16:39 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ghc-pandoc-types: Avoid embedding spurious references.

Browse source 
* gnu/packages/haskell-xyz.scm (ghc-pandoc-types)[arguments]: Add build phase
"create-simple-paths-module" to prevent retaining unnecessary references.
This commit is contained in:
Ricardo Wurmus 2020-06-27 22:30:51 +02:00
parent 78215a14b1
commit c7891956cd
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/haskell-xyz.scm
View file

@ -8896,6 +8896,26 @@ (define-public ghc-pandoc-types
(base32
"1d6ygq991ddria71l7hg9yd7lq94sjy4m71rdws1v8hq943c4d0q"))))
(build-system haskell-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
;; None of the directory names are actually used. By generating a
;; simpler module without references to store names we avoid
;; introducing references in the pandoc executable.
(add-after 'unpack 'create-simple-paths-module
(lambda _
(call-with-output-file "Paths_pandoc_types.hs"
(lambda (port)
(format port "\
{-# LANGUAGE CPP #-}
{-# LANGUAGE NoRebindableSyntax #-}
{-# OPTIONS_GHC -fno-warn-missing-import-lists #-}
module Paths_pandoc_types (version) where
import Data.Version (Version(..))
version :: Version
version = Version [~a] []
" (string-map (lambda (chr) (if (eq? chr #\.) #\, chr)) ,version))))
#t)))))
(inputs
`(("ghc-syb" ,ghc-syb)
("ghc-aeson" ,ghc-aeson)