From 66cb521749672586fd5b1182b14e3c5d44829616 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Fri, 3 Sep 2021 17:44:44 +0200
Subject: Extract representation in dedicated library

---
 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 45ea69e..9a8e840 100644
--- a/src/lib/reader.ml
+++ b/src/lib/reader.ml
@@ -7,7 +7,7 @@ let sound_to_string
   = fun t ->
     let buff = Buffer.create 16 in
     List.iter t
-      ~f:(fun f -> Buffer.add_string buff (Sounds.repr (module Sounds.Repr) f));
+      ~f:(fun f -> Buffer.add_string buff (Sounds.repr (module Repr.Default) f));
     Buffer.contents buff
 
 let succeed (res : Sounds.t list) =
-- 
cgit v1.2.3