diff options
Diffstat (limited to 'compiler/GHC/ThToHs.hs')
| -rw-r--r-- | compiler/GHC/ThToHs.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/ThToHs.hs b/compiler/GHC/ThToHs.hs index 77c436c912..5756556682 100644 --- a/compiler/GHC/ThToHs.hs +++ b/compiler/GHC/ThToHs.hs @@ -950,7 +950,8 @@ cvtl e = wrapLA (cvt e) -- oddities that can result from zero-argument -- lambda expressions. See #13856. cvt (LamE ps e) = do { ps' <- cvtPats ps; e' <- cvtl e - ; let pats = map (parenthesizePat appPrec) ps' + ; let pats' = ps' + ; let pats = map (parenthesizePat appPrec) pats' ; th_origin <- getOrigin ; return $ HsLam noExtField (mkMatchGroup th_origin (noLocA [mkSimpleMatch LambdaExpr |