From a37678c2cf668b4837cdf5d147f4c2f26b2634e9 Mon Sep 17 00:00:00 2001
From: FrigoEU <simon.van.casteren@gmail.com>
Date: Sat, 3 Aug 2019 10:37:07 +0200
Subject: Added comments and extracted typeOf/getInfo into seperate module

---
 src/main.mlton.sml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/main.mlton.sml')

diff --git a/src/main.mlton.sml b/src/main.mlton.sml
index bb5d2166..bbee8c90 100644
--- a/src/main.mlton.sml
+++ b/src/main.mlton.sml
@@ -139,8 +139,8 @@ fun oneRun args =
         fun printModuleOf fname =
             print_and_exit (Compiler.moduleOf fname) ()
 
-        fun typeOf loc =
-            (Print.print (Compiler.typeOf loc);
+        fun getInfo loc =
+            (Print.print (GetInfo.getInfo loc);
              raise Code OS.Process.success)
 
         fun add_class (class, num) =
@@ -249,8 +249,8 @@ fun oneRun args =
                     NONE),
               ("moduleOf", ONE ("<file>", printModuleOf),
                     SOME "print module name of <file> and exit"),
-              ("typeOf", ONE ("<file:row:col>", typeOf),
-                    SOME "print type of expression at <file:row:col> and exit"),
+              ("getInfo", ONE ("<file:row:col>", getInfo),
+                    SOME "print info of expression at <file:row:col> and exit"),
               ("noEmacs", set_true Demo.noEmacs,
                     NONE),
               ("limit", TWO ("<class>", "<num>", add_class),
-- 
cgit v1.2.3