diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-11-19 12:43:28 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-12-14 20:53:51 -0500 |
| commit | 4f654071850e211370199dddefffbe4a85cd6040 (patch) | |
| tree | 9289ac5d0bace8b08af91167f835ed06d6847a41 /compiler/GHC/Driver/Pipeline/Phases.hs | |
| parent | 82c39f4df38a32c93b3be5aa428dedf5d6bf66f4 (diff) | |
| download | haskell-4f654071850e211370199dddefffbe4a85cd6040.tar.gz | |
compiler: Drop `Maybe ModLocation` from T_MergeForeign
This field was entirely unused.
Diffstat (limited to 'compiler/GHC/Driver/Pipeline/Phases.hs')
| -rw-r--r-- | compiler/GHC/Driver/Pipeline/Phases.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/Pipeline/Phases.hs b/compiler/GHC/Driver/Pipeline/Phases.hs index 415d29147d..d689e1e266 100644 --- a/compiler/GHC/Driver/Pipeline/Phases.hs +++ b/compiler/GHC/Driver/Pipeline/Phases.hs @@ -46,7 +46,7 @@ data TPhase res where T_LlvmOpt :: PipeEnv -> HscEnv -> FilePath -> TPhase FilePath T_LlvmLlc :: PipeEnv -> HscEnv -> FilePath -> TPhase FilePath T_LlvmMangle :: PipeEnv -> HscEnv -> FilePath -> TPhase FilePath - T_MergeForeign :: PipeEnv -> HscEnv -> Maybe ModLocation -> FilePath -> [FilePath] -> TPhase FilePath + T_MergeForeign :: PipeEnv -> HscEnv -> FilePath -> [FilePath] -> TPhase FilePath -- | A wrapper around the interpretation function for phases. data PhaseHook = PhaseHook (forall a . TPhase a -> IO a) |