diff options
Diffstat (limited to 'src/bin')
| -rw-r--r-- | src/bin/transcriptor.ml | 19 |
1 files changed, 14 insertions, 5 deletions
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. *) |