01/02: gnu: pygame-sdl2-for-renpy: Drop generated sources in snippet.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit 2a951e87c5122c2941eac58fe5edac7dbe005209
Author: Leo Prikler <leo.prikler@student.tugraz.at>
AuthorDate: Thu Dec 10 20:03:11 2020 +0100

    gnu: pygame-sdl2-for-renpy: Drop generated sources in snippet.
    
    * gnu/packages/game-development.scm 
(pygame-sdl2-for-renpy)[source]<modules>:
    Add (guix build utils).
    [#:phases]<drop-generated-files>: Move from here...
    [source]<snippet>: ... to here.
    
    Signed-off-by: Nicolas Goaziou <mail@nicolasgoaziou.fr>
---
 gnu/packages/game-development.scm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/game-development.scm 
b/gnu/packages/game-development.scm
index c57ea5a..557f02f 100644
--- a/gnu/packages/game-development.scm
+++ b/gnu/packages/game-development.scm
@@ -1071,7 +1071,14 @@ to create fully featured games and multimedia programs 
in the python language.")
          (method url-fetch)
          (uri (string-append "https://www.renpy.org/dl/"; renpy-version
                              "/pygame_sdl2-" version ".tar.gz"))
-         (sha256 (base32 
"1bmr7j9mlsc4czpgw70ld15ymyp4wxrk9hdsqad40wjwdxvvg2dr"))))
+         (sha256 (base32 
"1bmr7j9mlsc4czpgw70ld15ymyp4wxrk9hdsqad40wjwdxvvg2dr"))
+         (modules '((guix build utils)))
+         (snippet
+          '(begin
+             ;; drop generated sources
+             (delete-file-recursively "gen")
+             (delete-file-recursively "gen3")
+             #t))))
       (build-system python-build-system)
       (arguments
        `(#:tests? #f                ; tests require pygame to be installed 
first
@@ -1090,11 +1097,6 @@ to create fully featured games and multimedia programs 
in the python language.")
                                       "/lib -Wl,-rpath,"
                                       (assoc-ref inputs "sdl-union")
                                       "/lib -Wl,--enable-new-dtags -lSDL2"))
-               #t))
-           (add-before 'build 'drop-generated-files
-             (lambda args
-               (delete-file-recursively "gen")
-               (delete-file-recursively "gen3")
                #t)))))
       (inputs
        `(("sdl-union"