diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-09-02 16:23:22 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-09-04 16:24:59 -0400 |
| commit | 89ce7cdf977304cb7d0f325a013f822600c1bfbf (patch) | |
| tree | baa862e1bfc0f2dab23c70353a190cc6e67d7e9d /compiler/GHC/Driver | |
| parent | 1d6d648866da9e7754859c48235f8009b8c130fd (diff) | |
| download | haskell-89ce7cdf977304cb7d0f325a013f822600c1bfbf.tar.gz | |
DynFlags: use Platform in foldRegs*
Diffstat (limited to 'compiler/GHC/Driver')
| -rw-r--r-- | compiler/GHC/Driver/CodeOutput.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/CodeOutput.hs b/compiler/GHC/Driver/CodeOutput.hs index f752449210..122efe2069 100644 --- a/compiler/GHC/Driver/CodeOutput.hs +++ b/compiler/GHC/Driver/CodeOutput.hs @@ -83,7 +83,7 @@ codeOutput dflags this_mod filenm location foreign_stubs foreign_fps pkg_deps dflags (text "CmmLint"<+>brackets (ppr this_mod)) (const ()) $ do - { case cmmLint dflags cmm of + { case cmmLint (targetPlatform dflags) cmm of Just err -> do { log_action dflags dflags NoReason |