Update CLI testing examples to not use Nat

crates/cli_testing_examples/benchmarks/Base64/Decode.roc

@@ -4,10 +4,10 @@ fromBytes : List U8 -> Result Str DecodeProblem
 fromBytes = \bytes ->
     Bytes.Decode.decode bytes (decodeBase64 (List.len bytes))
 
-decodeBase64 : Nat -> ByteDecoder Str
+decodeBase64 : U64 -> ByteDecoder Str
 decodeBase64 = \width -> Bytes.Decode.loop loopHelp { remaining: width, string: "" }
 
-loopHelp : { remaining : Nat, string : Str } -> ByteDecoder (Bytes.Decode.Step { remaining : Nat, string : Str } Str)
+loopHelp : { remaining : U64, string : Str } -> ByteDecoder (Bytes.Decode.Step { remaining : U64, string : Str } Str)
 loopHelp = \{ remaining, string } ->
     if remaining >= 3 then
         x, y, z <- Bytes.Decode.map3 Bytes.Decode.u8 Bytes.Decode.u8 Bytes.Decode.u8

crates/cli_testing_examples/benchmarks/Base64/Encode.roc

@@ -18,7 +18,7 @@ encodeChunks = \bytes ->
     List.walk bytes { output: [], accum: None } folder
     |> encodeResidual
 
-coerce : Nat, a -> a
+coerce : U64, a -> a
 coerce = \_, x -> x
 
 # folder : { output : List ByteEncoder, accum : State }, U8 -> { output : List ByteEncoder, accum : State }

crates/cli_testing_examples/benchmarks/Bytes/Decode.roc

@@ -1,6 +1,6 @@
 interface Bytes.Decode exposes [ByteDecoder, decode, map, map2, u8, loop, Step, succeed, DecodeProblem, after, map3] imports []
 
-State : { bytes : List U8, cursor : Nat }
+State : { bytes : List U8, cursor : U64 }
 
 DecodeProblem : [OutOfBytes]
 

crates/cli_testing_examples/benchmarks/Bytes/Encode.roc

@@ -2,7 +2,7 @@ interface Bytes.Encode exposes [ByteEncoder, sequence, u8, u16, bytes, empty, en
 
 Endianness : [BE, LE]
 
-ByteEncoder : [Signed8 I8, Unsigned8 U8, Signed16 Endianness I16, Unsigned16 Endianness U16, Sequence Nat (List ByteEncoder), Bytes (List U8)]
+ByteEncoder : [Signed8 I8, Unsigned8 U8, Signed16 Endianness I16, Unsigned16 Endianness U16, Sequence U64 (List ByteEncoder), Bytes (List U8)]
 
 u8 : U8 -> ByteEncoder
 u8 = \value -> Unsigned8 value
@@ -24,7 +24,7 @@ sequence : List ByteEncoder -> ByteEncoder
 sequence = \encoders ->
     Sequence (getWidths encoders 0) encoders
 
-getWidth : ByteEncoder -> Nat
+getWidth : ByteEncoder -> U64
 getWidth = \encoder ->
     when encoder is
         Signed8 _ -> 1
@@ -40,7 +40,7 @@ getWidth = \encoder ->
         Sequence w _ -> w
         Bytes bs -> List.len bs
 
-getWidths : List ByteEncoder, Nat -> Nat
+getWidths : List ByteEncoder, U64 -> U64
 getWidths = \encoders, initial ->
     List.walk encoders initial \accum, encoder -> accum + getWidth encoder
 
@@ -51,7 +51,7 @@ encode = \encoder ->
     encodeHelp encoder 0 output
     |> .output
 
-encodeHelp : ByteEncoder, Nat, List U8 -> { output : List U8, offset : Nat }
+encodeHelp : ByteEncoder, U64, List U8 -> { output : List U8, offset : U64 }
 encodeHelp = \encoder, offset, output ->
     when encoder is
         Unsigned8 value ->

crates/cli_testing_examples/benchmarks/Quicksort.roc

@@ -24,7 +24,7 @@ sortWith = \list, order ->
 
     quicksortHelp list order 0 (n - 1)
 
-quicksortHelp : List a, Order a, Nat, Nat -> List a
+quicksortHelp : List a, Order a, U64, U64 -> List a
 quicksortHelp = \list, order, low, high ->
     if low < high then
         when partition low high list order is
@@ -35,7 +35,7 @@ quicksortHelp = \list, order, low, high ->
     else
         list
 
-partition : Nat, Nat, List a, Order a -> [Pair Nat (List a)]
+partition : U64, U64, List a, Order a -> [Pair U64 (List a)]
 partition = \low, high, initialList, order ->
     when List.get initialList high is
         Ok pivot ->
@@ -46,7 +46,7 @@ partition = \low, high, initialList, order ->
         Err _ ->
             Pair low initialList
 
-partitionHelp : Nat, Nat, List c, Order c, Nat, c -> [Pair Nat (List c)]
+partitionHelp : U64, U64, List c, Order c, U64, c -> [Pair U64 (List c)]
 partitionHelp = \i, j, list, order, high, pivot ->
     if j < high then
         when List.get list j is
@@ -63,7 +63,7 @@ partitionHelp = \i, j, list, order, high, pivot ->
     else
         Pair i list
 
-swap : Nat, Nat, List a -> List a
+swap : U64, U64, List a -> List a
 swap = \i, j, list ->
     when Pair (List.get list i) (List.get list j) is
         Pair (Ok atI) (Ok atJ) ->