diff options
Diffstat (limited to 'compiler/typecheck/TcGenFunctor.hs')
-rw-r--r-- | compiler/typecheck/TcGenFunctor.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcGenFunctor.hs b/compiler/typecheck/TcGenFunctor.hs index 19cd9d903a..2f03cd0950 100644 --- a/compiler/typecheck/TcGenFunctor.hs +++ b/compiler/typecheck/TcGenFunctor.hs @@ -511,7 +511,7 @@ mkSimpleConMatch2 ctxt fold extra_pats con insides = do vars_needed = takeList insides as_RDRs pat = nlConVarPat con_name vars_needed -- Make sure to zip BEFORE invoking catMaybes. We want the variable - -- indicies in each expression to match up with the argument indices + -- indices in each expression to match up with the argument indices -- in con_expr (defined below). exps = catMaybes $ zipWith (\i v -> (`nlHsApp` nlHsVar v) <$> i) insides vars_needed |