From b1d6a6087cdc94f47075f0ad102a167c11b1bf8a Mon Sep 17 00:00:00 2001 From: Thomas Miedema Date: Mon, 30 Mar 2015 23:05:16 +0200 Subject: Delete unused field `PipeEnv.pe_isHaskellishFile` Differential Revision: https://phabricator.haskell.org/D774 --- 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 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 -- cgit v1.2.1