[project @ 2000-09-28 15:15:48 by simonpj]

[ghc-hetmet.git] / ghc / compiler / parser / ParseUtil.lhs

diff --git a/ghc/compiler/parser/ParseUtil.lhs b/ghc/compiler/parser/ParseUtil.lhs
index 006456c..49c0376 100644 (file)
--- a/ghc/compiler/parser/ParseUtil.lhs
+++ b/ghc/compiler/parser/ParseUtil.lhs
@@ -199,9 +199,8 @@ checkPat e [] = case e of
        ExplicitList es    -> mapP (\e -> checkPat e []) es `thenP` \ps ->
                              returnP (ListPatIn ps)
 
-       ExplicitTuple es Boxed -> mapP (\e -> checkPat e []) es `thenP` \ps ->
-                                 returnP (TuplePatIn ps Boxed)
-               -- Unboxed tuples are illegal in patterns
+       ExplicitTuple es b -> mapP (\e -> checkPat e []) es `thenP` \ps ->
+                             returnP (TuplePatIn ps b)
 
        RecordCon c fs     -> mapP checkPatField fs `thenP` \fs ->
                              returnP (RecPatIn c fs)