Fix file selection so it only select vcs files

.guix/modules/guix-cantrips-package.scm

@@ -14,14 +14,16 @@
 	#:use-module (gnu packages texinfo))
 
 (define vcs-file?
-	(or (git-predicate (current-source-directory))
+	(or (git-predicate "../..")
 			(const #t)))
 
 (define-public guix-cantrips
 	(package
 		(name "guix-cantrips")
 		(version "0.1-src")
-		(source (local-file "../.." "guix-cantrips" #:recursive? #t))
+		(source (local-file "../.." "guix-cantrips"
+												#:recursive? #t
+												#:select? vcs-file?))
 		(build-system gnu-build-system)
 		(arguments
      (list