From 123c8bc693063cfc880709c7dfa700a177a66adb Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Fri, 3 Sep 2021 17:37:03 +0200
Subject: Ended refactoring

---
 src/lib/reader.ml | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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

diff --git a/src/lib/reader.ml b/src/lib/reader.ml
index 52339a2..45ea69e 100644
--- a/src/lib/reader.ml
+++ b/src/lib/reader.ml
@@ -1,7 +1,5 @@
 open StdLabels
 
-module P = Parser
-module Parser = P.Make(Sounds)
 module I =   Parser.MenhirInterpreter
 
 let sound_to_string
@@ -9,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 f));
+      ~f:(fun f -> Buffer.add_string buff (Sounds.repr (module Sounds.Repr) f));
     Buffer.contents buff
 
 let succeed (res : Sounds.t list) =
-- 
cgit v1.2.3