diff options
| author | aarne <unknown> | 2003-10-07 15:17:55 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-10-07 15:17:55 +0000 |
| commit | 889e5a92e4e0c40ab249f9f86d0fa2647132d87a (patch) | |
| tree | d9dd9687ee2d8a735b65f9b617f3f1a607666615 /src/GF/Shell/Commands.hs | |
| parent | 0988010e33fabc02090490b4a562a53fa9a08780 (diff) | |
Updates for editor. Dummies for hugs.
Diffstat (limited to 'src/GF/Shell/Commands.hs')
| -rw-r--r-- | src/GF/Shell/Commands.hs | 5 |
1 files changed, 1 insertions, 4 deletions
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 |