Delete unused field `PipeEnv.pe_isHaskellishFile`
authorThomas Miedema <thomasmiedema@gmail.com>
Mon, 30 Mar 2015 21:05:16 +0000 (23:05 +0200)
committerThomas Miedema <thomasmiedema@gmail.com>
Mon, 30 Mar 2015 21:05:24 +0000 (23:05 +0200)
Differential Revision: https://phabricator.haskell.org/D774

compiler/main/DriverPipeline.hs
compiler/main/PipelineMonad.hs

index f949531..334c151 100644 (file)
@@ -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',
index c81f1f2..31f9169 100644 (file)
@@ -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