We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent de6337b commit 96f97c9Copy full SHA for 96f97c9
1 file changed
lib/Driver.ml
@@ -178,11 +178,9 @@ let detect_karamel () =
178
if not !Options.silent then
179
KPrint.bprintf "%sKaRaMeL home is:%s %s\n" Ansi.underline Ansi.reset krml_home;
180
181
- if try Sys.is_directory (krml_home ^^ ".git") with Sys_error _ -> false then begin
182
- let cwd = Sys.getcwd () in
183
- Sys.chdir krml_home;
184
- krml_rev := String.sub (read_one_line "git" [| "rev-parse"; "HEAD" |]) 0 12;
185
- Sys.chdir cwd
+ krml_rev := begin
+ try String.sub Version.version 0 12
+ with Invalid_argument _ -> Version.version
186
end;
187
188
krmllib_dir := krml_home ^^ "krmllib";
0 commit comments