diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2021-06-10 16:04:26 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-11-02 01:36:32 -0400 |
| commit | f1a782dd29480c4570465ea0aa06008bbf444e13 (patch) | |
| tree | 4837a90b7d2e3e1786aa19d75d1d5db5e834f1cf /compiler/GHC/ThToHs.hs | |
| parent | 7445bd714c1bea39207f9a2fa497c325b95ba2c7 (diff) | |
| download | haskell-f1a782dd29480c4570465ea0aa06008bbf444e13.tar.gz | |
HsToken for let/in (#19623)
One more step towards the new design of EPA.
Diffstat (limited to 'compiler/GHC/ThToHs.hs')
| -rw-r--r-- | compiler/GHC/ThToHs.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/ThToHs.hs b/compiler/GHC/ThToHs.hs index eb92fe1240..12b7e9fdbc 100644 --- a/compiler/GHC/ThToHs.hs +++ b/compiler/GHC/ThToHs.hs @@ -981,7 +981,7 @@ cvtl e = wrapLA (cvt e) | otherwise = do { alts' <- mapM cvtpair alts ; return $ HsMultiIf noAnn alts' } cvt (LetE ds e) = do { ds' <- cvtLocalDecs (text "a let expression") ds - ; e' <- cvtl e; return $ HsLet noAnn ds' e'} + ; e' <- cvtl e; return $ HsLet noAnn noHsTok ds' noHsTok e'} cvt (CaseE e ms) = do { e' <- cvtl e; ms' <- mapM (cvtMatch CaseAlt) ms ; th_origin <- getOrigin ; return $ HsCase noAnn e' |