git://git.onelab.eu
/
vsys.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
paranoid checkin
[vsys.git]
/
globals.ml
1
(** Some things that didn't fit in elsewhere *)
2
let backend = ref ""
3
let debug = ref true
4
let vsys_version = "0.5"
5
6
type result = Success | Failed
7
8
type fname_and_fd = string option * Unix.file_descr
9
10
(* Relative path, never precededed by a '/' *)
11
type relpath = Relpath of string
12
13
exception Bad_path
14
exception Bug