Add debug command for printing the module graph.

SamGhK · Aug 29, 2009 · d1f3007 · d1f3007
1 parent 0a171ed
commit d1f3007
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 1 deletion.
diff --git a/emacs/scion.el b/emacs/scion.el
@@ -2282,6 +2282,10 @@ forces it to be off.  NIL toggles the current state."
   (interactive)
   (scion-eval '(dump-defined-names)))
 
+(defun scion-dump-module-graph ()
+  (interactive)
+  (scion-eval '(dump-module-graph)))
+
 (define-key scion-mode-map "\C-c\C-t" 'scion-thing-at-point)
 
 (provide 'scion)

diff --git a/server/Scion/Server/Commands.hs b/server/Scion/Server/Commands.hs
@@ -36,7 +36,7 @@ import FastString
 import GHC
 import PprTyThing ( pprTypeForUser )
 import Outputable ( ppr, showSDoc, showSDocDump, dcolon, showSDocForUser,
-                    showSDocDebug )
+                    showSDocDebug, printDump )
 import qualified Outputable as O ( (<+>), ($$) )
 
 import Control.Applicative
@@ -173,6 +173,7 @@ allCommands =
     , cmdDefinedNames
     , cmdNameDefinitions
     , cmdIdentify
+    , cmdDumpModuleGraph
     ]
 
 ------------------------------------------------------------------------------
@@ -586,3 +587,12 @@ cmdIdentify :: Cmd
 cmdIdentify =
     Cmd "client-identify" $ reqArg' "name" fromJSString $ cmd
   where cmd c = modifySessionState $ \s -> s { client = c }
+
+cmdDumpModuleGraph :: Cmd
+cmdDumpModuleGraph =
+   Cmd "dump-module-graph" $ noArgs $ cmd
+  where
+    cmd = do
+      mg <- getModuleGraph
+      liftIO $ printDump (ppr mg)
+      return ()