diff options
| author | Mateus Cruz <mateuscolvr@gmail.com> | 2024-02-05 21:50:50 -0300 |
|---|---|---|
| committer | Mateus Cruz <mateuscolvr@gmail.com> | 2024-02-05 21:50:50 -0300 |
| commit | 00ade6066e9dd88c65b176bf4788eea4c3e1a15d (patch) | |
| tree | 418c20c9edf2745bfcf38e44d9a5937ff0d382a5 /lib/operation.ml | |
| parent | 81e194d07f6ddd653b8bef4d50ba454df41c2702 (diff) | |
fix: description length validation
Diffstat (limited to 'lib/operation.ml')
| -rw-r--r-- | lib/operation.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/operation.ml b/lib/operation.ml index 3c8df2a..bce6ac2 100644 --- a/lib/operation.ml +++ b/lib/operation.ml @@ -49,5 +49,9 @@ let decoder : transaction_op Utils.Decoder.decoder = (fun value transaction_type description -> transaction_type { value; description }) <$> ("valor" <: int) <*> ("tipo" <: transaction_type_decoder) - <*> ("descricao" <: string) + <*> ("descricao" + <: (string + >>= fun s -> + let len = String.length s in + if len <= 10 && len >= 1 then return s else fail)) ;; |