summaryrefslogtreecommitdiff
path: root/src/main.mlton.sml
diff options
context:
space:
mode:
Diffstat (limited to 'src/main.mlton.sml')
-rw-r--r--src/main.mlton.sml6
1 files changed, 0 insertions, 6 deletions
diff --git a/src/main.mlton.sml b/src/main.mlton.sml
index 1747d702..9042307a 100644
--- a/src/main.mlton.sml
+++ b/src/main.mlton.sml
@@ -141,10 +141,6 @@ fun oneRun args =
fun printModuleOf fname =
print_and_exit (Compiler.moduleOf fname) ()
- fun getInfo loc =
- (Print.print (GetInfo.getInfo loc);
- raise Code OS.Process.success)
-
fun add_class (class, num) =
case Int.fromString num of
NONE => raise Fail ("Invalid limit number '" ^ num ^ "'")
@@ -251,8 +247,6 @@ fun oneRun args =
NONE),
("moduleOf", ONE ("<file>", printModuleOf),
SOME "print module name of <file> and exit"),
- ("getInfo", ONE ("<file:row:col>", getInfo),
- SOME "print info of expression at <file:row:col> and exit"),
("startLspServer", ZERO Lsp.startServer, SOME "Start Language Server Protocol server"),
("noEmacs", set_true Demo.noEmacs,
NONE),