From 3cc2c764ea32fbdc76f99bffca61c013a05cc084 Mon Sep 17 00:00:00 2001
From: TakeV <takev@disroot.org>
Date: Thu, 28 Dec 2023 17:52:59 -0500
Subject: [PATCH] Remove extra debug packages

Also fix that typo wtf
---
 .guix/modules/meowy-webring.scm | 40 ++-------------------------------
 1 file changed, 2 insertions(+), 38 deletions(-)

diff --git a/.guix/modules/meowy-webring.scm b/.guix/modules/meowy-webring.scm
index 969185b..9b60667 100644
--- a/.guix/modules/meowy-webring.scm
+++ b/.guix/modules/meowy-webring.scm
@@ -1,6 +1,6 @@
 (load "crates-io.scm")
 (define-module (meowy-webring)
-  :use-module (crates-io)
+  #:use-module (crates-io)
   #:use-module (guix)
   #:use-module (guix build-system cargo)
   #:use-module (guix git-download)
@@ -13,43 +13,6 @@
   (or (git-predicate  (current-source-directory))
       (const #t)))
 
-
-; temp package to debug build issues
-(define-public proc-macros
-  (package
-    (name "proc-macros")
-    (version "0.1.0-git")
-    (source (local-file "../../crates/proc-macros" "proc-macros-checkout"
-			#:recursive? #t
-			#:select? keep-file?))
-    (build-system cargo-build-system)
-    (arguments (list #:cargo-inputs `(("rust-syn" ,rust-syn-2)
-				      ("rust-quote" ,rust-quote-1))))
-    (synopsis "")
-    (description "")
-    (home-page "")
-    (license license:cc0)))
-
-; temp package to debug build issues
-(define-public meowy-assets
-  (package
-    (name "meowy-assets")
-    (version "0.1.0-git")
-    (source (local-file "../../crates/meowy-assets" "meowy-assets-checkout"
-			#:recursive? #t
-			#:select? keep-file?))
-    (build-system cargo-build-system)
-    (arguments (list #:cargo-inputs `(("proc-macros" ,proc-macros)
-				      ("rust-askama-rocket" ,rust-askama-rocket-0.12)
-				      ("rust-askama" ,rust-askama-0.12)
-				      ("rust-embed" ,rust-embed-6)
-				      ("rust-hex" ,rust-hex-0.4)
-				      ("rust-rocket" ,rust-rocket-0.5))))
-    (synopsis "")
-    (description "")
-    (home-page "")
-    (license license:cc0)))
-
 (define-public meowy-webring
   (package
     (name "meowy-webring")
@@ -68,6 +31,7 @@
 				      ("rust-serde" ,rust-serde-1)
 				      ("rust-serde-json" ,rust-serde-json-1)
 				      ("rust-simple-logger" ,rust-simple-logger-4))
+		     #:install-source? #f
 		     #:phases #~(modify-phases %standard-phases
 				  (delete 'package))))
     (synopsis "")