summaryrefslogtreecommitdiff
path: root/compiler/GHC/Driver/Config/Stg/Pipeline.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/Driver/Config/Stg/Pipeline.hs')
-rw-r--r--compiler/GHC/Driver/Config/Stg/Pipeline.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/GHC/Driver/Config/Stg/Pipeline.hs b/compiler/GHC/Driver/Config/Stg/Pipeline.hs
index 5ab9548786..50e7be0913 100644
--- a/compiler/GHC/Driver/Config/Stg/Pipeline.hs
+++ b/compiler/GHC/Driver/Config/Stg/Pipeline.hs
@@ -21,6 +21,7 @@ initStgPipelineOpts dflags for_bytecode = StgPipelineOpts
Just $ initDiagOpts dflags
, stgPipeline_pprOpts = initStgPprOpts dflags
, stgPipeline_phases = getStgToDo for_bytecode dflags
+ , stgPlatform = targetPlatform dflags
}
-- | Which Stg-to-Stg passes to run. Depends on flags, ways etc.