From 00ade6066e9dd88c65b176bf4788eea4c3e1a15d Mon Sep 17 00:00:00 2001
From: Mateus Cruz <mateuscolvr@gmail.com>
Date: Mon, 5 Feb 2024 21:50:50 -0300
Subject: fix: description length validation

---
 lib/operation.ml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib')

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))
 ;;
-- 
cgit v1.2.3