From db882cae080d3820f1723a711398c21db27f826a Mon Sep 17 00:00:00 2001 From: Mateus Cruz Date: Tue, 6 Feb 2024 02:56:02 -0300 Subject: small refactor --- lib/operation.ml | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'lib/operation.ml') diff --git a/lib/operation.ml b/lib/operation.ml index 54962fd..2e681f8 100644 --- a/lib/operation.ml +++ b/lib/operation.ml @@ -18,6 +18,12 @@ module TransactionType = struct ;; end +type client = + { id : int + ; mov_limit : int + ; balance : int + } + type transaction_payload = { value : int ; description : string @@ -28,8 +34,6 @@ type transaction_op = | `Debit of transaction_payload ] -type t = Balance of { client_id : int } - type transaction = { id : int ; client_id : int -- cgit v1.2.3