From 1a333ea25078953dcb6bef268b0b39a94b5bfcd8 Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Wed, 24 Jan 2024 19:11:26 +0200
Subject: [PATCH] =?UTF-8?q?K=C3=A4=C3=A4nn=C3=A4=20Laskutin=20vain=20gitti?=
 =?UTF-8?q?in=20kirjatuista=20tiedostoista?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .guix/modules/laskutin-package.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/.guix/modules/laskutin-package.scm b/.guix/modules/laskutin-package.scm
index 5b337b7..bbf2f24 100644
--- a/.guix/modules/laskutin-package.scm
+++ b/.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