diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-03 11:44:55 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-03 11:44:55 +0200 |
| commit | ad45e1b397ba995dc0222057a8dc1d0c38970c4f (patch) | |
| tree | 311e8b38215503ae05a78573c8a92500d7ca01f4 /src/lib/reader.ml | |
| parent | 6af889039d232381b13f1f07a694abcfaff2535e (diff) | |
Update model
Diffstat (limited to 'src/lib/reader.ml')
| -rw-r--r-- | src/lib/reader.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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) = |