[Git][ghc/ghc][wip/21619] Alternative solution

[Matthew Pickering (@mpickering)]

Matthew Pickering pushed to branch wip/21619 at Glasgow Haskell Compiler / GHC


Commits:
183219f5 by Matthew Pickering at 2022-10-11T09:48:39+01:00
Alternative solution

- - - - -


2 changed files:

- compiler/GHC/Hs/Syn/Type.hs
- compiler/GHC/Iface/Ext/Ast.hs


Changes:

=====================================
compiler/GHC/Hs/Syn/Type.hs
=====================================
@@ -133,7 +133,7 @@ hsExprType (HsTypedBracket   (HsBracketTc _ ty _wrap _pending) _) = ty
 hsExprType (HsUntypedBracket (HsBracketTc _ ty _wrap _pending) _) = ty
 -- This is ugly but HsSpliced things here are not real, they are inserted
 -- by GHC.Tc.Gen.Splice as an application of unType applied to the original expression.
-hsExprType (HsSpliceE _ (HsSpliced _ _ (HsSplicedExpr (HsApp _ _e1 e2)))) = pprTrace "loc" callStackDoc $ pprTraceIt "ty" $ lhsExprType e2
+--hsExprType (HsSpliceE _ (HsSpliced _ _ (HsSplicedExpr (HsApp _ _e1 e2)))) = pprTrace "loc" callStackDoc $ pprTraceIt "ty" $ lhsExprType e2
 hsExprType e@(HsSpliceE{}) = pprPanic "hsExprType: Unexpected HsSpliceE"
                                       (ppr e)
 hsExprType (HsProc _ _ lcmd_top) = lhsCmdTopType lcmd_top


=====================================
compiler/GHC/Iface/Ext/Ast.hs
=====================================
@@ -1192,8 +1192,8 @@ instance HiePass p => ToHie (LocatedA (HsExpr (GhcPass p))) where
           [ toHie b
           ]
         HieTc | HsBracketTc _ _ _ p <- xbracket ->
-          [ toHie b
-          , toHie p
+          [ -- toHie b
+            toHie p
           ]
       HsUntypedBracket xbracket b -> case hiePass @p of
         HieRn ->



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/183219f590910a46edf0b27a64e0e8d05e524dd1

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/183219f590910a46edf0b27a64e0e8d05e524dd1
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20221011/6b75d7a6/attachment-0001.html>