diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-07 13:44:54 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-07 13:44:54 +0200 |
| commit | 96a225fb5fa24a71e1b76e0369126b3bcfab5f81 (patch) | |
| tree | 7af2de89c02461607666a9442cbaa5fbf2c94678 /src/bin/transcriptor.ml | |
| parent | e4faaaf8a022fbe2c8c574d2d49155f74aa18a33 (diff) | |
Moved the printer to toplevel
Diffstat (limited to 'src/bin/transcriptor.ml')
| -rw-r--r-- | src/bin/transcriptor.ml | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/bin/transcriptor.ml b/src/bin/transcriptor.ml index 6d02e9d..f86852f 100644 --- a/src/bin/transcriptor.ml +++ b/src/bin/transcriptor.ml @@ -1,13 +1,14 @@ module T = Translator -module P = T.Parser - -module I = P.MenhirInterpreter let process (optional_line : string option) = match optional_line with | None -> () | Some line -> - match T.Reader.process line with + + let res = 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 |