[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