From 21d05774e5f78b6d070d69f714873b2c2a7cfe28 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Fri, 17 Sep 2021 02:51:53 +0200 Subject: Separation between font and tengwar --- src/bin/transcriptor.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/bin') diff --git a/src/bin/transcriptor.ml b/src/bin/transcriptor.ml index feb24db..d759452 100644 --- a/src/bin/transcriptor.ml +++ b/src/bin/transcriptor.ml @@ -14,7 +14,7 @@ let process (optional_line : string option) = | Ok response -> print_endline response | Error err -> print_endline err in let res2 = Result.map - (fun t-> Sounds.repr (module Repr.Tengwar) t) + (fun t-> Sounds.repr (module Repr.Anatar) t) result in let () = match res2 with | Ok response -> print_endline response -- cgit v1.2.3