diff options
Diffstat (limited to 'compiler/deSugar/Check.hs')
| -rw-r--r-- | compiler/deSugar/Check.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/Check.hs b/compiler/deSugar/Check.hs index 3d855d4407..af72f74312 100644 --- a/compiler/deSugar/Check.hs +++ b/compiler/deSugar/Check.hs @@ -722,7 +722,7 @@ tidy_pat (PArrPat ps ty) [ty] tidy_pat (TuplePat ps boxity tys) - = unLoc $ mkPrefixConPat (tupleCon (boxityNormalTupleSort boxity) arity) + = unLoc $ mkPrefixConPat (tupleDataCon boxity arity) (map tidy_lpat ps) tys where arity = length ps |