Apoorv Ingle pushed to branch wip/ani/better-expansion at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Tc/Gen/Expr.hs
    ... ... @@ -848,7 +848,7 @@ tcHsExpansion (HSE { hse_ctxt = o, hse_exp = e }) res_ty
    848 848
     tcExpand :: HsExpr GhcRn -> TcM (Maybe (HsExpansion GhcRn))
    
    849 849
     tcExpand e@(OpApp _ arg1 op arg2)
    
    850 850
       = return (Just (HSE { hse_ctxt = ExprCtxt e
    
    851
    -                      , hse_exp  = mkHsApps op [arg1,arg2] }))
    
    851
    +                      , hse_exp  = wrapGenSpan (unLoc $ mkHsApps op [arg1,arg2]) }))
    
    852 852
     tcExpand (XExpr (ExpandedThingRn hse))
    
    853 853
       = return (Just hse)
    
    854 854