Andreas Klebinger pushed to branch wip/andreask/rewriteOpApp at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Stg/EnforceEpt/Rewrite.hs
    ... ... @@ -399,7 +399,7 @@ rewriteExpr (StgTick t e) = StgTick t <$!> rewriteExpr e
    399 399
     rewriteExpr e@(StgConApp {})          = rewriteConApp e
    
    400 400
     rewriteExpr e@(StgApp {})             = rewriteApp e
    
    401 401
     rewriteExpr (StgLit lit)              = return $! (StgLit lit)
    
    402
    -rewriteExpr e@(StgOpApp op args res_ty) = rewriteOpApp e
    
    402
    +rewriteExpr e@(StgOpApp _op _args _res_ty) = rewriteOpApp e
    
    403 403
     
    
    404 404
     
    
    405 405
     rewriteCase :: InferStgExpr -> RM TgStgExpr