[fix]: unfold union in WithPadding > arbitrary.ts

jacob-alford · May 5, 2023 · 71bc279 · 71bc279
1 parent 4bfaf50
commit 71bc279
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/schemables/WithPadding/instances/arbitrary.ts b/src/schemables/WithPadding/instances/arbitrary.ts
@@ -31,7 +31,7 @@ export const Arbitrary: WithPadding1<Arb.URI> = {
             flow(
               stripLeftWhile(c => c === char),
               s =>
-                s.length > length
+                s.length > foldUnion(length)(s)
                   ? s.slice(0, foldUnion(length)(s))
                   : s.padStart(foldUnion(length)(s), char),
             ),
@@ -51,7 +51,7 @@ export const Arbitrary: WithPadding1<Arb.URI> = {
             flow(
               stripRightWhile(c => c === char),
               s =>
-                s.length > length
+                s.length > foldUnion(length)(s)
                   ? s.slice(0, foldUnion(length)(s))
                   : s.padEnd(foldUnion(length)(s), char),
             ),