Something went wrong. Try again.
ocaml
Something went wrong. Try again.
522 B · 17 lines
OCaml
at pp-ast
123456789101112131415161718(* * SPDX-FileCopyrightText: 2024 The Forester Project Contributors * SPDX-FileCopyrightText: 2026 The Forester Project Contributors * * SPDX-License-Identifier: GPL-3.0-or-later *)
open Forester_core
type t = URI.Set.tlet empty = URI.Set.emptylet add_seen_uri = URI.Set.addlet add_seen_uri_opt uri_opt = match uri_opt with Some uri -> add_seen_uri uri | None -> Fun.idlet have_seen_uri = URI.Set.memlet have_seen_uri_opt uri_opt = match uri_opt with Some uri -> have_seen_uri uri | None -> fun _ -> false