Source file `files.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
(**************************************************************************)
(*                                                                        *)
(*  Copyright (c) 2023 OCamlPro SAS                                       *)
(*                                                                        *)
(*  All rights reserved.                                                  *)
(*  This file is distributed under the terms of the GNU General Public    *)
(*  License version 3.0, as described in the LICENSE.md file in the root  *)
(*  directory of this source tree.                                        *)
(*                                                                        *)
(*                                                                        *)
(**************************************************************************)

let content filename =
  match Tree.read filename with
  | None -> raise Not_found
  | Some content -> content