Alpha: typos

src/proto_alpha/lib_protocol/src/delegate_services.ml

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

src/proto_alpha/lib_protocol/src/qty_repr.ml

@@ -78,7 +78,7 @@ module Make (T: QTY) : S = struct
   let one_mutez = 1L
   let one_cent = Int64.mul one_mutez 10_000L
   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 id = T.id
 

src/proto_alpha/lib_protocol/src/roll_storage.mli

@@ -12,7 +12,7 @@
    Basic roll manipulation.
 
    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.
 
 *)