diff options
| author | johnvg | 2007-04-18 11:04:20 +0000 |
|---|---|---|
| committer | johnvg | 2007-04-18 11:04:20 +0000 |
| commit | 0ca0386f1d47f4e34656429f54bace0376e1044b (patch) | |
| tree | cfe17a5e8cebad19e300e3fbea46244a57da5136 | |
| parent | also compare NewTypePatterns (diff) | |
add alternative for NewTypePatterns in function checkMacro
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1677 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/check.icl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/frontend/check.icl b/frontend/check.icl index 1c2a2f9..50ea4c4 100644 --- a/frontend/check.icl +++ b/frontend/check.icl @@ -1014,6 +1014,9 @@ instance checkMacro CasePatterns where # (patterns, ea) = checkMacro topLevel patterns ea = (BasicPatterns type patterns, ea) + checkMacro topLevel (NewTypePatterns type patterns) ea + # (patterns, ea) = checkMacro topLevel patterns ea + = (NewTypePatterns type patterns, ea) checkMacro topLevel (DynamicPatterns patterns) ea # (patterns, ea) = checkMacro topLevel patterns ea |