From 3b90a643b3820e97bf1dab28ce41dacc4ca2831f Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 20 Sep 2021 22:27:04 +0200 Subject: Updated from js usage --- src/bin/transcriptor.ml | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/bin/transcriptor.ml') diff --git a/src/bin/transcriptor.ml b/src/bin/transcriptor.ml index d759452..dc83634 100644 --- a/src/bin/transcriptor.ml +++ b/src/bin/transcriptor.ml @@ -17,7 +17,13 @@ let process (optional_line : string option) = (fun t-> Sounds.repr (module Repr.Anatar) t) result in let () = match res2 with - | Ok response -> print_endline response + | Ok response -> print_endline ( "Anatar : " ^ response) + | Error err -> print_endline err in + let res3 = Result.map + (fun t-> Sounds.repr (module Repr.Telcontar) t) + result in + let () = match res3 with + | Ok response -> print_endline ( "Telcontar : " ^ response) | Error err -> print_endline err in () -- cgit v1.2.3