diff options
| author | aarne <aarne@cs.chalmers.se> | 2009-04-06 14:07:22 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2009-04-06 14:07:22 +0000 |
| commit | c7376c78a99ef702486c77eda240104e7856b83c (patch) | |
| tree | cc4cb5187de4add62f3a8d3f11dc969bd6544b09 /src/GF/Compile | |
| parent | 203d02ef34f66c04c082c5db55378c4450e2f671 (diff) | |
warning for overshadowed patterns, temporal solution
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/CheckGrammar.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/GF/Compile/CheckGrammar.hs b/src/GF/Compile/CheckGrammar.hs index 61c361199..47434d74e 100644 --- a/src/GF/Compile/CheckGrammar.hs +++ b/src/GF/Compile/CheckGrammar.hs @@ -774,8 +774,11 @@ checkLType env trm typ0 = do ps <- checkErr $ testOvershadow ps0 vs if null ps then return () - else checkWarn $ "WARNING: patterns never reached:" +++ - concat (intersperse ", " (map prt ps)) +---- else checkWarn $ "WARNING: 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 |