parent
f4955cdc22
commit
1f99d0fb70
|
@ -35,10 +35,7 @@ let make vars =
|
||||||
}
|
}
|
||||||
|
|
||||||
let get t k =
|
let get t k =
|
||||||
List.find_map t.vars ~f:(fun (k', v) ->
|
List.find_map t.vars ~f:(fun (k', v) -> Option.some_if (Var.equal k k') v)
|
||||||
match Var.compare k k' with
|
|
||||||
| Ordering.Eq -> Some v
|
|
||||||
| _ -> None)
|
|
||||||
|
|
||||||
let to_unix t =
|
let to_unix t =
|
||||||
match t.unix with
|
match t.unix with
|
||||||
|
|
Loading…
Reference in New Issue