diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2015-03-30 23:05:16 +0200 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2015-03-30 23:05:24 +0200 |
| commit | b1d6a6087cdc94f47075f0ad102a167c11b1bf8a (patch) | |
| tree | 4fb23372342acd226b456dfbc03e0eed5a79c923 | |
| parent | c37ee4a8009b438f86b1ca6df10901d7f783b4f0 (diff) | |
| download | haskell-b1d6a6087cdc94f47075f0ad102a167c11b1bf8a.tar.gz | |
Delete unused field `PipeEnv.pe_isHaskellishFile`
Differential Revision: https://phabricator.haskell.org/D774
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 3 | ||||
| -rw-r--r-- | compiler/main/PipelineMonad.hs | 1 |
2 files changed, 1 insertions, 3 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index f94953126b..334c15142d 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -597,8 +597,7 @@ runPipeline stop_phase hsc_env0 (input_fn, mb_phase) isHaskellishFile = isHaskell start_phase - env = PipeEnv{ pe_isHaskellishFile = isHaskellishFile, - stop_phase, + env = PipeEnv{ stop_phase, src_filename = input_fn, src_basename = basename, src_suffix = suffix', diff --git a/compiler/main/PipelineMonad.hs b/compiler/main/PipelineMonad.hs index c81f1f20ae..31f9169c47 100644 --- a/compiler/main/PipelineMonad.hs +++ b/compiler/main/PipelineMonad.hs @@ -50,7 +50,6 @@ instance Outputable PhasePlus where -- PipeEnv: invariant information passed down data PipeEnv = PipeEnv { - pe_isHaskellishFile :: Bool, stop_phase :: Phase, -- ^ Stop just before this phase src_filename :: String, -- ^ basename of original input source src_basename :: String, -- ^ basename of original input source |