diff options
Diffstat (limited to 'compiler/typecheck/TcPat.hs')
| -rw-r--r-- | compiler/typecheck/TcPat.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcPat.hs b/compiler/typecheck/TcPat.hs index 486210cb07..07f945ccf3 100644 --- a/compiler/typecheck/TcPat.hs +++ b/compiler/typecheck/TcPat.hs @@ -468,7 +468,7 @@ tc_pat penv (TuplePat pats boxity _) pat_ty thing_inside | otherwise = unmangled_result ; pat_ty <- readExpType pat_ty - ; ASSERT( length con_arg_tys == length pats ) -- Syntactically enforced + ; ASSERT( con_arg_tys `equalLength` pats ) -- Syntactically enforced return (mkHsWrapPat coi possibly_mangled_result pat_ty, res) } |