Skip to content

Commit 4a9c7d4

Browse files
committed
Fix FileDomain compilation on OCaml 5.0.0~rc1
1 parent f26292d commit 4a9c7d4

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/cdomains/fileDomain.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -58,7 +58,7 @@ struct
5858

5959
let fopen k loc filename mode m =
6060
if is_unknown k m then m else
61-
let mode = match String.lowercase mode with "r" -> Val.Read | _ -> Val.Write in
61+
let mode = match String.lowercase_ascii mode with "r" -> Val.Read | _ -> Val.Write in
6262
let v = V.make k loc (Val.Open(filename, mode)) in
6363
add' k v m
6464
let fclose k loc m =

0 commit comments

Comments
 (0)