robur/opam-mirror
4
0
Fork 0
Code Issues 5 Pull requests 2 Projects Releases Packages Wiki Activity Actions

minor: silence warnings

Browse source
This commit is contained in:
Hannes Mehnert 2022-09-01 09:30:46 +02:00
parent a1e4b71eb9
commit 6d51eb707b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
mirage/unikernel.ml
View file

@ -141,8 +141,8 @@ module Make
in
let url =
match url, archive with
| Some { pelem = Variable (_, { pelem = String url ; _ }) }, None -> Some url
| None, Some { pelem = Variable (_, { pelem = String url ; _ }) } -> Some url
| Some { pelem = Variable (_, { pelem = String url ; _ }) ; _ }, None -> Some url
| None, Some { pelem = Variable (_, { pelem = String url ; _ }); _ } -> Some url
| _ ->
Logs.warn (fun m -> m "%s neither src nor archive present" filename); None
in