blob: dfb60526d934abad5b9be073ddddf9464772f421 (
plain)
1
2
3
4
5
6
7
8
9
10
11
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))
|