msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests 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
if null ps
then return ()
else raise $ "patterns never reached:" +++
concat (intersperse ", " (map prt ps))
---- use this if you want to see where the error is
-- 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:" +++
---- 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
cs' <- mapM (checkCase arg val) cs