Unicode. Batch transl into HTML.

2004-01-28 12:42:20 +00:00
parent fdda9fac0a
commit dec8e76616
12 changed files with 84 additions and 12 deletions
--- a/src/GF.hs
+++ b/src/GF.hs
@@ -24,7 +24,7 @@ main = do
  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
+  putStrLnFlush $ if java then encodeUTF8 welcomeMsg else welcomeMsg
  st <- case fs of 
    _ -> useIOE emptyShellState $ foldM (shellStateFromFiles os) emptyShellState fs
  ---  _ -> return emptyShellState