From 21aa3cfa17baf0cd6c0dd49aaa45cab8e2a4ad2c Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 5 Oct 2008 15:21:08 +0000 Subject: forced checking def definitions; accept pgf with no concretes --- src/GF/Compile/GrammarToGFCC.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Compile/GrammarToGFCC.hs') diff --git a/src/GF/Compile/GrammarToGFCC.hs b/src/GF/Compile/GrammarToGFCC.hs index 5d2b1b408..4a59f970a 100644 --- 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 -- cgit v1.2.3