From 1ba97f613c25926f4007fda9e38131fbb8961173 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Wed, 8 Sep 2021 18:06:55 +0200 Subject: Update tengwar --- src/bin/transcriptor.ml | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) (limited to 'src/bin') diff --git a/src/bin/transcriptor.ml b/src/bin/transcriptor.ml index f86852f..77a7b6f 100644 --- a/src/bin/transcriptor.ml +++ b/src/bin/transcriptor.ml @@ -5,12 +5,21 @@ let process (optional_line : string option) = | None -> () | Some line -> - let res = Result.map + let result =(T.Reader.process line) in + + let res1 = Result.map (fun t-> Sounds.repr (module Repr.Default) t) - (T.Reader.process line) in - match res with - | Ok response -> print_endline response - | Error err -> print_endline err + result in + let () = match res1 with + | Ok response -> print_endline response + | Error err -> print_endline err in + let res2 = Result.map + (fun t-> Sounds.repr (module Repr.Tengwar) t) + result in + let () = match res2 with + | Ok response -> print_endline response + | Error err -> print_endline err in + () let rec repeat channel = (* Attempt to read one line. *) -- cgit v1.2.3