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

Alpha: typos

Browse Source
This commit is contained in:
bruno 2018-05-22 16:02:28 +02:00 committed by Grégoire Henry
parent 672d2c10a6
commit c13b7dd39a
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/proto_alpha/lib_protocol/src/delegate_services.ml
View File

@ -50,7 +50,7 @@ module Baker = struct
let rights_for_level = let rights_for_level =
RPC_service.post_service RPC_service.post_service
~description: ~description:
"List delegate allowed to bake for a given level, \ "List delegates allowed to bake for a given level, \
ordered by priority." ordered by priority."
~query: RPC_query.empty ~query: RPC_query.empty
~input: (obj1 (opt "max_priority" int31)) ~input: (obj1 (opt "max_priority" int31))

6
src/proto_alpha/lib_protocol/src/qty_repr.ml
View File

@ -78,7 +78,7 @@ module Make (T: QTY) : S = struct
let one_mutez = 1L let one_mutez = 1L
let one_cent = Int64.mul one_mutez 10_000L let one_cent = Int64.mul one_mutez 10_000L
let fifty_cents = Int64.mul one_cent 50L let fifty_cents = Int64.mul one_cent 50L
(* 1 tez = 100 cents = 10_000_000 mutez *) (* 1 tez = 100 cents = 1_000_000 mutez *)
let one = Int64.mul one_cent 100L let one = Int64.mul one_cent 100L
let id = T.id let id = T.id
@ -159,12 +159,12 @@ module Make (T: QTY) : S = struct
then Some (Int64.sub t1 t2) then Some (Int64.sub t1 t2)
else None else None
let (-?) t1 t2 = let ( -? ) t1 t2 =
match t1 - t2 with match t1 - t2 with
| None -> error (Subtraction_underflow (t1, t2)) | None -> error (Subtraction_underflow (t1, t2))
| Some v -> ok v | Some v -> ok v
let (+?) t1 t2 = let ( +? ) t1 t2 =
let t = Int64.add t1 t2 in let t = Int64.add t1 t2 in
if t < t1 if t < t1
then error (Addition_overflow (t1, t2)) then error (Addition_overflow (t1, t2))

2
src/proto_alpha/lib_protocol/src/roll_storage.mli
View File

@ -12,7 +12,7 @@
Basic roll manipulation. Basic roll manipulation.
If storage related to roll (a.k.a. `Storage.Roll`) are not used If storage related to roll (a.k.a. `Storage.Roll`) are not used
outside this module, this interface enforce the invariant that a outside of this module, this interface enforces the invariant that a
roll is always either in the limbo list or in a contract list. roll is always either in the limbo list or in a contract list.
*) *)