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
type point_error =
  [ `Invalid_format
  | `Invalid_length
  | `Invalid_range
  | `Not_on_curve
  | `At_infinity ]

type scalar_error = [ `Invalid_length | `Invalid_range ]

let error_to_string = function
  | `Invalid_format -> "invalid format"
  | `Not_on_curve -> "point is not on curve"
  | `At_infinity -> "point is at infinity"
  | `Invalid_length -> "invalid length"
  | `Invalid_range -> "invalid range"

let pp_point_error fmt e =
  Format.fprintf fmt "Cannot parse point: %s" (error_to_string e)

let pp_scalar_error fmt e =
  Format.fprintf fmt "Cannot parse scalar: %s" (error_to_string e)