From 3b90a643b3820e97bf1dab28ce41dacc4ca2831f Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
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')
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