Moved the printer to toplevel

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