blob: d3de8c5be99368ba1c3f8d3afe220467d80ea83a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(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)
(values (-> "git rev-parse HEAD"
open-input-pipe read-line)
(-> "git rev-parse --short HEAD"
open-input-pipe read-line)))
|