msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fixed warnings in present compilation of resource, esp. unreached patterns

Browse Source
This commit is contained in:
aarne
2009-06-22 14:30:55 +00:00
parent b7f6393e9f
commit f8fdaa7acc
18 changed files with 198 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -787,10 +787,12 @@ 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))
---- else checkWarn $ "patterns never reached:" +++
---- concat (intersperse ", " (map prt ps))
else trace ("WARNING: patterns never reached:" +++
concat (intersperse ", " (map prt ps))) (return ())
---- 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