From 0b2e63791a073000b70b4463db5d8bce88ab4d23 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sat, 4 Sep 2021 09:42:31 +0200
Subject: Update

---
 src/lib/reader.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/src/lib/reader.ml b/src/lib/reader.ml
index 9a8e840..dfb05ce 100644
--- a/src/lib/reader.ml
+++ b/src/lib/reader.ml
@@ -1,14 +1,15 @@
-open StdLabels
-
 module I =   Parser.MenhirInterpreter
 
 let sound_to_string
   : Sounds.t list -> string
   = fun t ->
+      (*
     let buff = Buffer.create 16 in
     List.iter t
       ~f:(fun f -> Buffer.add_string buff (Sounds.repr (module Repr.Default) f));
     Buffer.contents buff
+    *)
+    Sounds.repr (module Repr.Default) t
 
 let succeed (res : Sounds.t list) =
   Ok (sound_to_string res)
-- 
cgit v1.2.3