diff options
author | FrigoEU <simon.van.casteren@gmail.com> | 2019-08-03 08:19:26 +0200 |
---|---|---|
committer | FrigoEU <simon.van.casteren@gmail.com> | 2019-08-03 08:19:26 +0200 |
commit | 120b7d2886e71b6e2000f94f0570d933542b2941 (patch) | |
tree | 972e13ceb006e1d18d6f612c25b7720aba2d4f1c | |
parent | 0e520d3fd675bcebb5751bd1a0c304033f4f7782 (diff) |
Removed some unnecessary prints
-rw-r--r-- | src/compiler.sml | 9 | ||||
-rw-r--r-- | src/main.mlton.sml | 3 |
2 files changed, 3 insertions, 9 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 7ceb209a..2e6cf312 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -1880,7 +1880,6 @@ fun getTypeAt file row col = | Sgn s => Print.box [Print.PD.string "SGN: ", ElabPrint.p_sgn env s] | Str s => Print.box [Print.PD.string "STR: ", ElabPrint.p_str env s] | Decl d => Print.box [Print.PD.string "DECL: ", ElabPrint.p_decl env d] - , Print.PD.string "\n" ] (* TODO We lose some really useful information, like eg. inferred parameters, *) @@ -2004,10 +2003,7 @@ fun getTypeAt file row col = in case #smallestgoodpart result of NONE => printLiterally (#smallest result) - | SOME (desc, span) => - Print.box [(* Print.PD.string (ErrorMsg.spanToString span), Print.PD.string " @ " *) - desc - , Print.PD.string "\n"] + | SOME (desc, span) => desc end @@ -2015,8 +2011,7 @@ fun typeOf loc = case String.tokens (fn ch => ch = #":") loc of file :: rowStr :: colStr :: nil => (case (Int.fromString rowStr, Int.fromString colStr) of - (SOME row, SOME col) => - Print.box [getTypeAt file row col, Print.PD.string "\n"] + (SOME row, SOME col) => getTypeAt file row col | _ => Print.PD.string "ERROR: Wrong typeOf input format, should be <file:row:col>") | _ => Print.PD.string "ERROR: Wrong typeOf input format, should be <file:row:col>" end diff --git a/src/main.mlton.sml b/src/main.mlton.sml index 8e70e398..bb5d2166 100644 --- a/src/main.mlton.sml +++ b/src/main.mlton.sml @@ -441,8 +441,7 @@ val () = (Globals.setResetTime (); wrs = [Socket.sockDesc sock], exs = [], timeout = SOME (Time.fromSeconds 1)}))) then - (TextIO.print "Using daemon\n"; - app (fn arg => send (sock, arg ^ "\n")) args; + (app (fn arg => send (sock, arg ^ "\n")) args; send (sock, "\n"); OS.Process.exit (wait ())) else |