package fpath-sexp0

  1. Overview
  2. Docs

Source file fpath0.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(*********************************************************************************)
(*  fpath-base: Extending [Fpath] to use alongside [Sexplib0] and/or [Base]      *)
(*  SPDX-FileCopyrightText: 2023-2025 Mathieu Barbin <mathieu.barbin@gmail.com>  *)
(*  SPDX-License-Identifier: MIT                                                 *)
(*********************************************************************************)

open! Stdlib_compat

type t = Fpath.t

let sexp_of_t t = Sexplib0.Sexp.Atom (Fpath.to_string t)
let compare = Fpath.compare
let equal = Fpath.equal
let hash t = String.hash (Fpath.to_string t)
let seeded_hash seed t = String.seeded_hash seed (Fpath.to_string t)