From e8d50c3841380fd46ca511da532fc1aca6c7335a Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 24 Jan 2006 15:18:46 +0000 Subject: the parser can read .gfm files (but they are not yet compiled all the way) --- src/GF/Compile/Compile.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/GF/Compile/Compile.hs') diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs index 0b14cedc1..c364e1adf 100644 --- a/src/GF/Compile/Compile.hs +++ b/src/GF/Compile/Compile.hs @@ -77,15 +77,15 @@ compileModule :: Options -> ShellState -> FilePath -> IOE TimedCompileEnv compileModule opts st0 file | oElem showOld opts || - elem suff ["cf","ebnf"] = do + elem suff ["cf","ebnf","gfm"] = do let putp = putPointE opts let putpp = putPointEsil opts let path = [] ---- - grammar1 <- if suff == "cf" - then putp ("- parsing" +++ suff +++ file) $ getCFGrammar opts file - else if suff == "ebnf" - then putp ("- parsing" +++ suff +++ file) $ getEBNFGrammar opts file - else putp ("- parsing old gf" +++ file) $ getOldGrammar opts file + grammar1 <- case suff of + "cf" -> putp ("- parsing" +++ suff +++ file) $ getCFGrammar opts file + "ebnf" -> putp ("- parsing" +++ suff +++ file) $ getEBNFGrammar opts file + "gfm" -> putp ("- parsing" +++ suff +++ file) $ getSourceGrammar file + _ -> putp ("- parsing old gf" +++ file) $ getOldGrammar opts file let mods = modules grammar1 let env = compileEnvShSt st0 [] foldM (comp putpp path) env mods -- cgit v1.2.3