Working with interfaces.

Working with interfaces.
Created new place for grammar parsers.
Created new script jgf2+.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/GF.hs b/src/GF.hs
index bdc9a9fea..3144e8a18 100644
--- a/src/GF.hs
+++ b/src/GF.hs
@@ -23,12 +23,13 @@ main = do
   xs <- getArgs
   let (os,fs) = getOptions "-" xs
       java    = oElem forJava os
+      isNew   = oElem newParser os ---- temporary hack to have two parallel GUIs
   putStrLn $ if java then encodeUTF8 welcomeMsg else welcomeMsg
   st <- case fs of 
     _ -> useIOE emptyShellState $ foldM (shellStateFromFiles os) emptyShellState fs
   ---  _ -> return emptyShellState
   if null fs then return () else putCPU 
-  if java then sessionLineJ st else do
+  if java then sessionLineJ isNew st else do
   gfInteract (initHState st) 
   return ()