git.annexia.org
/
goaljobs-goals.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
libguestfs now needs --enable-werror to enable warning errors.
[goaljobs-goals.git]
/
git.ml
1
(* Utilities for handling git repositories. *)
2
3
open Goaljobs
4
5
let git_has_local_changes dir =
6
let lines = shlines "cd %s && git status --porcelain" (quote dir) in
7
let lines = List.filter (
8
fun line ->
9
let code = String.sub line 0 2 in
10
code <> "??"
11
) lines in
12
List.length lines > 0