the parser can read .gfm files (but they are not yet compiled all the way)

1 files changed, 6 insertions, 6 deletions

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