From ad45e1b397ba995dc0222057a8dc1d0c38970c4f Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Fri, 3 Sep 2021 11:44:55 +0200
Subject: Update model

---
 src/lib/reader.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/lib/reader.ml')

diff --git a/src/lib/reader.ml b/src/lib/reader.ml
index c5f8cda..52339a2 100644
--- a/src/lib/reader.ml
+++ b/src/lib/reader.ml
@@ -9,7 +9,7 @@ let sound_to_string
   = fun t ->
     let buff = Buffer.create 16 in
     List.iter t
-      ~f:(fun f -> Buffer.add_string buff f.Sounds.repr);
+      ~f:(fun f -> Buffer.add_string buff (Sounds.repr f));
     Buffer.contents buff
 
 let succeed (res : Sounds.t list) =
-- 
cgit v1.2.3