From c7dde38d90e9525ccb360fa379667087cecfd687 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sat, 1 Jun 2019 21:31:37 +0200
Subject: Move get-git-version to new git module.

---
 module/git.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 module/git.scm

(limited to 'module/git.scm')

diff --git a/module/git.scm b/module/git.scm
new file mode 100644
index 00000000..dfb60526
--- /dev/null
+++ b/module/git.scm
@@ -0,0 +1,12 @@
+(define-module (git)
+  :use-module (util)
+  :use-module ((ice-9 rdelim) :select (read-line))
+  :use-module ((ice-9 popen) :select (open-input-pipe))
+  :export (get-git-version))
+
+(define (get-git-version)
+  (-> "git rev-parse HEAD"
+      open-input-pipe
+      read-line))
+
+
-- 
cgit v1.2.3