summaryrefslogtreecommitdiff
path: root/src/main.mlton.sml
diff options
context:
space:
mode:
authorGravatar Simon Van Casteren <simonvancasteren@localhost.localdomain>2019-12-11 22:56:29 +0100
committerGravatar Simon Van Casteren <simonvancasteren@localhost.localdomain>2019-12-13 11:46:57 +0100
commit9b00dc724363ac7b0a31687f14cc3bb2f2460f9b (patch)
tree8a078a63394a2a6067c35324796fe32deb0f5438 /src/main.mlton.sml
parent25b0685cefe772c73562665a4cc8d2d40e5ff600 (diff)
Integrated getInfo into LSP
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),