adjusting doc on gfe

doc/gf-history.html

@@ -20,8 +20,8 @@ converted to <tt>.gf</tt> files by the command
 <pre>
   gf -makeconcrete File.gfe
 </pre>
-See <a href="../lib/resource/doc/examples/QuestionsExI.gfe">
-<tt>../lib/resource/doc/examples/QuestionsExI.gfe</tt></a>
+See <a href="../lib/resource/doc/examples/QuestionsI.gfe">
+<tt>../lib/resource/doc/examples/QuestionsI.gfe</tt></a>
 for an example.
 
 <p>

index.html

@@ -20,6 +20,12 @@ May 17, 2005.
 
 </p><h2>News</h2>
 
+<i>June 3, 2005</i>. Started a page on
+<a href="doc/gf-history.html">history of changes</a>.
+These changes will appear soon in releases.
+
+<p>
+
 <i>May 17, 2005</i>. Version 2.2 released. See
 <a href="doc/gf2.2-highlights.html">highlights</a>.
 Download from

src/GF/Compile/MkConcrete.hs

@@ -44,13 +44,15 @@ mkConcrete :: FilePath -> IO ()
 mkConcrete file = do
   cont <- liftM lines $ readFileIf file
   let res = getResPath cont
-  egr <- appIOE $ optFile2grammar (options [useOptimizer "share"]) res --- for -mcfg
+  egr <- appIOE $ 
+    optFile2grammar (options [useOptimizer "share",fromSource,beSilent,notEmitCode]) res --- for -mcfg
   gr  <- err (\s -> putStrLn s >> error "resource file rejected") return egr
   let abs = prt_ $ absId gr
   let parser cat = errVal ([],"No parse") . 
                    optParseArgErrMsg (options [newMParser, firstCat cat, beVerbose]) gr
   let morpho = isKnownWord gr
   let out = suffixFile "gf" $ justModuleName file
+  writeFile out ""
   mapM_ (mkCnc out parser morpho) cont
 
 getResPath :: [String] -> String