GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

better error msg for missing record labels

Browse Source
This commit is contained in:
aarne
2008-09-09 19:43:33 +00:00
parent 1bd799d006
commit e7106b6181
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Compile/CheckGrammar.hs
View File

@@ -885,7 +885,7 @@ checkLType env trm typ0 = do
Just (_,t) -> do Just (_,t) -> do
(t',ty') <- check t ty (t',ty') <- check t ty
return (l,(Just ty',t')) 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 checkCase arg val (p,t) = do
cont <- pattContext env arg p cont <- pattContext env arg p

4
src/GF/Compile/GrammarToGFCC.hs
View File

@@ -33,8 +33,8 @@ import qualified Data.ByteString.Char8 as BS
import Debug.Trace ---- import Debug.Trace ----
-- when developing, swap commenting -- when developing, swap commenting
traceD s t = trace s t --traceD s t = trace s t
--traceD s t = t traceD s t = t
-- the main function: generate PGF from GF. -- the main function: generate PGF from GF.