package fehu

  1. Overview
  2. Docs
package fehu
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file errors.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
37
38
39
40
type t =
  | Unregistered_env of string
  | Namespace_not_found of string
  | Name_not_found of string
  | Version_not_found of string
  | Deprecated_env of string
  | Registration_error of string
  | Dependency_not_installed of string
  | Unsupported_mode of string
  | Invalid_metadata of string
  | Reset_needed of string
  | Invalid_action of string
  | Missing_argument of string
  | Invalid_probability of string
  | Invalid_bound of string
  | Closed_environment of string

let message prefix details =
  if String.length details = 0 then prefix else prefix ^ ": " ^ details

let to_string = function
  | Unregistered_env id -> message "Environment not registered" id
  | Namespace_not_found ns -> message "Environment namespace not found" ns
  | Name_not_found name -> message "Environment name not found" name
  | Version_not_found version -> message "Environment version not found" version
  | Deprecated_env id -> message "Environment version is deprecated" id
  | Registration_error msg -> message "Environment registration error" msg
  | Dependency_not_installed dep -> message "Dependency not installed" dep
  | Unsupported_mode mode -> message "Unsupported mode" mode
  | Invalid_metadata msg -> message "Invalid metadata" msg
  | Reset_needed msg -> message "Environment reset required" msg
  | Invalid_action msg -> message "Invalid action" msg
  | Missing_argument arg -> message "Missing argument" arg
  | Invalid_probability msg -> message "Invalid probability" msg
  | Invalid_bound msg -> message "Invalid bound" msg
  | Closed_environment msg -> message "Environment has been closed" msg

exception Error of t

let raise_error err = raise (Error err)