Käännä Laskutin vain gittiin kirjatuista tiedostoista

.guix/modules/laskutin-package.scm

@@ -1,5 +1,6 @@
 (define-module (laskutin-package)
   #:use-module (guix)
+  #:use-module (guix git-download)
   #:use-module (guix build-system haskell)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
@@ -7,12 +8,17 @@
   #:use-module (gnu packages haskell-check)
   #:use-module (gnu packages haskell-xyz))
 
+(define vcs-file?
+  (or (git-predicate (string-append (current-source-directory) "/../.."))
+      (const #t)))
+
 (define-public laskutin
   (package
     (name "laskutin")
     (version "0.0.1")
     (source (local-file "../.." "laskutin-checkout"
-                        #:recursive? #t))
+                        #:recursive? #t
+                        #:select? vcs-file?))
     (build-system haskell-build-system)
     (inputs (list ghc-cassava
                   ghc-lens