diff options
author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-04-16 00:41:40 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-05-01 22:21:17 -0400 |
commit | 636f7c62b1c30d130d88d6ad0763d894a8513e8a (patch) | |
tree | adb74a6bbe497b82f74d5dae18730e34f0629eb1 /compiler/GHC/Driver/Config/Stg/Pipeline.hs | |
parent | a7053a6c04496fa26a62bb3824ccc9664909a6ec (diff) | |
download | haskell-636f7c62b1c30d130d88d6ad0763d894a8513e8a.tar.gz |
StgLint: Check that functions are applied to compatible runtime reps
We use compatibleRep to compare reps, and avoid checking functions with
levity polymorphic types because of #21399.
Diffstat (limited to 'compiler/GHC/Driver/Config/Stg/Pipeline.hs')
-rw-r--r-- | compiler/GHC/Driver/Config/Stg/Pipeline.hs | 1 |
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. |