diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-20 22:27:04 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-20 22:27:04 +0200 |
| commit | 3b90a643b3820e97bf1dab28ce41dacc4ca2831f (patch) | |
| tree | d9155ffdb21f109f41b69438c87b5fb0b3ee41fb /src/bin/transcriptor.ml | |
| parent | 21d05774e5f78b6d070d69f714873b2c2a7cfe28 (diff) | |
Updated from js usage
Diffstat (limited to 'src/bin/transcriptor.ml')
| -rw-r--r-- | src/bin/transcriptor.ml | 8 |
1 files changed, 7 insertions, 1 deletions
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 () |