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/Grammar/PatternMatch.hs | |
| parent | 203d02ef34f66c04c082c5db55378c4450e2f671 (diff) | |
warning for overshadowed patterns, temporal solution
Diffstat (limited to 'src/GF/Grammar/PatternMatch.hs')
| -rw-r--r-- | src/GF/Grammar/PatternMatch.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Grammar/PatternMatch.hs b/src/GF/Grammar/PatternMatch.hs index ba3139506..021735c79 100644 --- a/src/GF/Grammar/PatternMatch.hs +++ b/src/GF/Grammar/PatternMatch.hs @@ -55,7 +55,7 @@ testOvershadow pts vs = do let numpts = zip pts [0..] let cases = [(p,EInt i) | (p,i) <- numpts] ts <- mapM (liftM fst . matchPattern cases) vs - return $ [p | (p,i) <- numpts, notElem i [i | EInt i <- ts] ] + return [p | (p,i) <- numpts, notElem i [i | EInt i <- ts] ] findMatch :: [([Patt],Term)] -> [Term] -> Err (Term, Substitution) findMatch cases terms = case cases of |