From 2433403b6247022ac56133ca935307868fcef6b9 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 24 Mar 2004 15:31:38 +0000 Subject: Making cf2gf to work... --- src/GF/Compile/Compile.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/GF/Compile/Compile.hs') diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs index 9d80f6a05..e6936809c 100644 --- a/src/GF/Compile/Compile.hs +++ b/src/GF/Compile/Compile.hs @@ -55,10 +55,13 @@ batchCompileOld f = compileOld defOpts f compileModule :: Options -> ShellState -> FilePath -> IOE (GFC.CanonGrammar, (SourceGrammar,[(FilePath,ModTime)])) -compileModule opts st0 file | oElem showOld opts = do + +compileModule opts st0 file | oElem showOld opts || fileSuffix file == "cf" = do let putp = putPointE opts let path = [] ---- - grammar1 <- putp ("- parsing old gf" +++ file) $ getOldGrammar opts file + grammar1 <- if fileSuffix file == "cf" + then putp ("- parsing cf" +++ file) $ getCFGrammar opts file + else putp ("- parsing old gf" +++ file) $ getOldGrammar opts file let mods = modules grammar1 let env = compileEnvShSt st0 [] (_,sgr,cgr) <- foldM (comp putp path) env mods -- cgit v1.2.3