diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-03 17:37:03 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-03 17:37:03 +0200 |
| commit | 123c8bc693063cfc880709c7dfa700a177a66adb (patch) | |
| tree | 5dd508c4ac5876fe80a661a4281b6fdaf3d064a9 /src/lib/reader.ml | |
| parent | 48dc04c3b9afe19207d15b873452129d9c2b3b4c (diff) | |
Ended refactoring
Diffstat (limited to 'src/lib/reader.ml')
| -rw-r--r-- | src/lib/reader.ml | 4 |
1 files changed, 1 insertions, 3 deletions
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) = |