From 889e5a92e4e0c40ab249f9f86d0fa2647132d87a Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 7 Oct 2003 15:17:55 +0000
Subject: Updates for editor. Dummies for hugs.

---
 src/GF/Shell/CommandL.hs | 6 +++---
 src/GF/Shell/Commands.hs | 5 +----
 2 files changed, 4 insertions(+), 7 deletions(-)

(limited to 'src/GF/Shell')

diff --git a/src/GF/Shell/CommandL.hs b/src/GF/Shell/CommandL.hs
index d1ba0f7ba..d470130ab 100644
--- a/src/GF/Shell/CommandL.hs
+++ b/src/GF/Shell/CommandL.hs
@@ -78,9 +78,9 @@ pCommand = pCommandWords . words where
     "c" : s : _   -> CTermCommand s
     "a" : _       -> CRefineRandom --- *a*leatoire
     "m" :  _      -> CMenu
-----    "ml" : s : _  -> changeMenuLanguage s
-----    "ms" : s : _  -> changeMenuSize s
-----    "mt" : s : _  -> changeMenuTyped s
+    "ml" : s : _  -> changeMenuLanguage s
+    "ms" : s : _  -> changeMenuSize s
+    "mt" : s : _  -> changeMenuTyped s
     "v" : _       -> CView
     "q" : _       -> CQuit
     "h" : _       -> CHelp initEditMsg
diff --git a/src/GF/Shell/Commands.hs b/src/GF/Shell/Commands.hs
index 3ba783c3b..71ef3244b 100644
--- a/src/GF/Shell/Commands.hs
+++ b/src/GF/Shell/Commands.hs
@@ -3,9 +3,8 @@ module Commands where
 import Operations
 import Zipper
 
-import qualified Grammar as G ---- Cat
+import qualified Grammar as G ---- Cat, Fun
 import GFC
-import qualified AbsGFC ---- Atom
 import CMacros
 import LookAbs
 import Values (loc2treeFocus)----
@@ -19,7 +18,6 @@ import qualified Ident as I
 import qualified PShell
 import qualified Macros as M
 import PrGrammar
-import TypeCheck ---- tree2exp
 import PGrammar
 import IOGrammar
 import UseIO
@@ -400,7 +398,6 @@ displaySStateJavaX env state = unlines $ tagXML "gfedit" $ concat [
   lin (n,gr) = (n, map uni $ linearizeState noWrap opts gr zipper) where
                   uni = optEncodeUTF8 n gr . mkUnicode
   exp    = prprTree $ loc2tree zipper
----  xml    = prExpXML gr $ tree2exp $ loc2tree zipper --- better: dir. from zipper
   zipper = stateSState state
   linAll = map lin lgrs
   gr     = firstStateGrammar env
-- 
cgit v1.2.3