diff options
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 () |