We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent de6337b commit aff02d3Copy full SHA for aff02d3
1 file changed
lib/Driver.ml
@@ -178,12 +178,11 @@ 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
186
- end;
+ (* Use krml -version flag *)
+ krml_rev := String.sub
+ (read_one_line (krml_home ^^ "krml") [| "-version" |])
+ (String.length "KaRaMeL version: ")
+ 12;
187
188
krmllib_dir := krml_home ^^ "krmllib";
189
runtime_dir := krml_home ^^ "runtime";
0 commit comments