balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Alpha: fix spelling of substraction

Browse Source
This commit is contained in:
Justin Carter 2017-06-21 13:32:18 +02:00 committed by Benjamin Canou
parent 8ba1130ee3
commit df2d6713b5
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/proto/alpha/qty_repr.ml
View File

@ -16,7 +16,7 @@ module type S = sig
type error += type error +=
| Addition_overflow of qty * qty (* `Temporary *) | Addition_overflow of qty * qty (* `Temporary *)
| Substraction_underflow of qty * qty (* `Temporary *) | Subtraction_underflow of qty * qty (* `Temporary *)
| Multiplication_overflow of qty * int64 (* `Temporary *) | Multiplication_overflow of qty * int64 (* `Temporary *)
| Negative_multiplicator of qty * int64 (* `Temporary *) | Negative_multiplicator of qty * int64 (* `Temporary *)
| Invalid_divisor of qty * int64 (* `Temporary *) | Invalid_divisor of qty * int64 (* `Temporary *)
@ -63,7 +63,7 @@ module Make (T: QTY) : S = struct
type error += type error +=
| Addition_overflow of qty * qty (* `Temporary *) | Addition_overflow of qty * qty (* `Temporary *)
| Substraction_underflow of qty * qty (* `Temporary *) | Subtraction_underflow of qty * qty (* `Temporary *)
| Multiplication_overflow of qty * int64 (* `Temporary *) | Multiplication_overflow of qty * int64 (* `Temporary *)
| Negative_multiplicator of qty * int64 (* `Temporary *) | Negative_multiplicator of qty * int64 (* `Temporary *)
| Invalid_divisor of qty * int64 (* `Temporary *) | Invalid_divisor of qty * int64 (* `Temporary *)
@ -138,7 +138,7 @@ module Make (T: QTY) : S = struct
let (-?) t1 t2 = let (-?) t1 t2 =
match t1 - t2 with match t1 - t2 with
| None -> error (Substraction_underflow (t1, t2)) | None -> error (Subtraction_underflow (t1, t2))
| Some v -> ok v | Some v -> ok v
let (+?) t1 t2 = let (+?) t1 t2 =
@ -212,16 +212,16 @@ module Make (T: QTY) : S = struct
(fun (a, b) -> Addition_overflow (a, b)) ; (fun (a, b) -> Addition_overflow (a, b)) ;
register_error_kind register_error_kind
`Temporary `Temporary
~id:(T.id ^ ".substraction_underflow") ~id:(T.id ^ ".subtraction_underflow")
~title:("Underflowing " ^ T.id ^ " substraction") ~title:("Underflowing " ^ T.id ^ " subtraction")
~pp: (fun ppf (opa, opb) -> ~pp: (fun ppf (opa, opb) ->
Format.fprintf ppf "Underflowing substraction of %a %s and %a %s" Format.fprintf ppf "Underflowing subtraction of %a %s and %a %s"
pp opa T.id pp opb T.id) pp opa T.id pp opb T.id)
~description: ~description:
("An substraction of two " ^ T.id ^ " amounts underflowed") ("An subtraction of two " ^ T.id ^ " amounts underflowed")
(obj1 (req "amounts" (tup2 encoding encoding))) (obj1 (req "amounts" (tup2 encoding encoding)))
(function Substraction_underflow (a, b) -> Some (a, b) | _ -> None) (function Subtraction_underflow (a, b) -> Some (a, b) | _ -> None)
(fun (a, b) -> Substraction_underflow (a, b)) ; (fun (a, b) -> Subtraction_underflow (a, b)) ;
register_error_kind register_error_kind
`Temporary `Temporary
~id:(T.id ^ ".multiplication_overflow") ~id:(T.id ^ ".multiplication_overflow")