[commit: ghc] master: Delete unused field `PipeEnv.pe_isHaskellishFile` (b1d6a60)
git at git.haskell.org
git at git.haskell.org
Mon Mar 30 21:06:38 UTC 2015
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/b1d6a6087cdc94f47075f0ad102a167c11b1bf8a/ghc
>---------------------------------------------------------------
commit b1d6a6087cdc94f47075f0ad102a167c11b1bf8a
Author: Thomas Miedema <thomasmiedema at gmail.com>
Date: Mon Mar 30 23:05:16 2015 +0200
Delete unused field `PipeEnv.pe_isHaskellishFile`
Differential Revision: https://phabricator.haskell.org/D774
>---------------------------------------------------------------
b1d6a6087cdc94f47075f0ad102a167c11b1bf8a
compiler/main/DriverPipeline.hs | 3 +--
compiler/main/PipelineMonad.hs | 1 -
2 files changed, 1 insertion(+), 3 deletions(-)
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index f949531..334c151 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 c81f1f2..31f9169 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
More information about the ghc-commits
mailing list