diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2019-07-26 16:08:37 +0000 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-08-06 20:24:41 -0400 |
commit | ea16f6cb22148982f9a0956be82288d380c1d9d9 (patch) | |
tree | c23990add628a12a6ab37fc28df865d0f800cfd6 | |
parent | 6e5dfcd2886d7523cfa059a64b343b22c5da4e97 (diff) | |
download | haskell-ea16f6cb22148982f9a0956be82288d380c1d9d9.tar.gz |
Remove dead parameter from coreToStgApp
-rw-r--r-- | compiler/stgSyn/CoreToStg.hs | 23 |
1 files changed, 8 insertions, 15 deletions
diff --git a/compiler/stgSyn/CoreToStg.hs b/compiler/stgSyn/CoreToStg.hs index 7a530009fe..f8d489b071 100644 --- a/compiler/stgSyn/CoreToStg.hs +++ b/compiler/stgSyn/CoreToStg.hs @@ -384,11 +384,11 @@ coreToStgExpr (App (Lit LitRubbish) _some_unlifted_type) -- We lower 'LitRubbish' to @()@ here, which is much easier than doing it in -- a STG to Cmm pass. = coreToStgExpr (Var unitDataConId) -coreToStgExpr (Var v) = coreToStgApp Nothing v [] [] -coreToStgExpr (Coercion _) = coreToStgApp Nothing coercionTokenId [] [] +coreToStgExpr (Var v) = coreToStgApp v [] [] +coreToStgExpr (Coercion _) = coreToStgApp coercionTokenId [] [] coreToStgExpr expr@(App _ _) - = coreToStgApp Nothing f args ticks + = coreToStgApp f args ticks where (f, args, ticks) = myCollectArgs expr @@ -502,18 +502,11 @@ mkStgAltType bndr alts -- Applications -- --------------------------------------------------------------------------- -coreToStgApp - :: Maybe UpdateFlag -- Just upd <=> this application is - -- the rhs of a thunk binding - -- x = [...] \upd [] -> the_app - -- with specified update flag - -> Id -- Function - -> [CoreArg] -- Arguments - -> [Tickish Id] -- Debug ticks - -> CtsM StgExpr - - -coreToStgApp _ f args ticks = do +coreToStgApp :: Id -- Function + -> [CoreArg] -- Arguments + -> [Tickish Id] -- Debug ticks + -> CtsM StgExpr +coreToStgApp f args ticks = do (args', ticks') <- coreToStgArgs args how_bound <- lookupVarCts f |