Source file error.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
(*****************************************************************************)
(*                                                                           *)
(*  Copyright (C) 2026 Yves Ndiaye                                           *)
(*                                                                           *)
(* This Source Code Form is subject to the terms of the Mozilla Public       *)
(* License, v. 2.0. If a copy of the MPL was not distributed with this       *)
(* file, You can obtain one at https://mozilla.org/MPL/2.0/.                 *)
(*                                                                           *)
(*****************************************************************************)

type t =
  | SqlError of { rc : Sqlite3.Rc.t; message : string }
  | LoadConfigError of SkhcConfig.Err.t
  | FileCreation of string
  | Message of string
  | Exn of exn

let sql_error rc message = SqlError { rc; message }
let sql_error' (rc, message) = sql_error rc message
let load_config_error s = LoadConfigError s
let file_creation s = FileCreation s
let message msg = Message msg
let message' fmt = Stdlib.Format.kasprintf message fmt
let exn exn = Exn exn

let to_string = function
  | SqlError { rc; message } ->
      Printf.sprintf "SqlError: %s: %s" message (Sqlite3.Rc.to_string rc)
  | LoadConfigError s ->
      Printf.sprintf "Cannot load config : %s" (SkhcConfig.Err.to_string s)
  | FileCreation s ->
      Printf.sprintf "Cannot create file or directory : %s" s
  | Message msg ->
      msg
  | Exn exn ->
      Printexc.to_string exn