GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

cleaning up overshadow failure to warning, after testing resource compilation

Browse Source
This commit is contained in:
aarne
2009-06-22 14:51:58 +00:00
parent ff29836c9b
commit 3049b59b35
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -787,13 +787,15 @@ checkLType env trm typ0 = do
ps <- checkErr $ testOvershadow ps0 vs ps <- checkErr $ testOvershadow ps0 vs
if null ps if null ps
then return () then return ()
else raise $ "patterns never reached:" +++ ---- use this if you want to see where the error is
concat (intersperse ", " (map prt ps)) -- else raise $ "patterns never reached:" +++
-- concat (intersperse ", " (map prt ps))
---- else use this
else trace ("WARNING: patterns never reached:" +++
concat (intersperse ", " (map prt ps))) (return ())
---- AR 6/4/2009: this would be the best but checkWarn doesn't show because of laziness (?)
---- else checkWarn $ "patterns never reached:" +++ ---- else checkWarn $ "patterns never reached:" +++
---- concat (intersperse ", " (map prt ps)) ---- concat (intersperse ", " (map prt ps))
---- else trace ("WARNING: patterns never reached:" +++
---- concat (intersperse ", " (map prt ps))) (return ())
---- AR 6/4/2009: checkWarn doesn't show because of laziness (?)
_ -> return () -- happens with variable types _ -> return () -- happens with variable types
cs' <- mapM (checkCase arg val) cs cs' <- mapM (checkCase arg val) cs