From e7106b61816853057e874bb2041657cc8e76bfc9 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 9 Sep 2008 19:43:33 +0000
Subject: [PATCH] better error msg for missing record labels

---
 src/GF/Compile/CheckGrammar.hs  | 2 +-
 src/GF/Compile/GrammarToGFCC.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/GF/Compile/CheckGrammar.hs b/src/GF/Compile/CheckGrammar.hs
index d752ab1c9..fc36f144a 100644
--- a/src/GF/Compile/CheckGrammar.hs
+++ b/src/GF/Compile/CheckGrammar.hs
@@ -885,7 +885,7 @@ checkLType env trm typ0 = do
      Just (_,t) -> do
        (t',ty') <- check t ty
        return (l,(Just ty',t'))
-     _ -> prtFail "cannot find value for label" l
+     _ -> raise $ "cannot find value for label" +++ prt l +++ "in" +++ prt_ (R rms)
 
    checkCase arg val (p,t) = do
      cont <- pattContext env arg p
diff --git a/src/GF/Compile/GrammarToGFCC.hs b/src/GF/Compile/GrammarToGFCC.hs
index 46bf7a619..5d2b1b408 100644
--- a/src/GF/Compile/GrammarToGFCC.hs
+++ b/src/GF/Compile/GrammarToGFCC.hs
@@ -33,8 +33,8 @@ import qualified Data.ByteString.Char8 as BS
 import Debug.Trace ----
 
 -- when developing, swap commenting
-traceD s t = trace s t 
---traceD s t = t 
+--traceD s t = trace s t 
+traceD s t = t 
 
 
 -- the main function: generate PGF from GF.