forced checking def definitions; accept pgf with no concretes

2008-10-05 15:21:08 +00:00
parent 16a1a48874
commit be9ff0cbca
3 changed files with 7 additions and 8 deletions
--- a/src/GF/Compile/GrammarToGFCC.hs
+++ b/src/GF/Compile/GrammarToGFCC.hs
@@ -47,7 +47,7 @@ mkCanon2gfcc :: Options -> String -> SourceGrammar -> (String,D.PGF)
 mkCanon2gfcc opts cnc gr = 
  (prIdent abs, (canon2gfcc opts pars . reorder abs . canon2canon abs) gr)
  where
-    abs = err error id $ M.abstractOfConcrete gr (identC (BS.pack cnc))
+    abs = err (const c) id $ M.abstractOfConcrete gr c where c = identC (BS.pack cnc)
    pars = mkParamLincat gr

 -- Adds parsers for all concretes