diff options
| author | Shea Levy <shea@shealevy.com> | 2016-12-17 20:08:58 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-12-17 20:58:35 -0500 |
| commit | 52ba9470a7e85d025dc84a6789aa809cdd68b566 (patch) | |
| tree | eedb856723fb2dc0101b946af3702e6c6aee18da /compiler/hsSyn | |
| parent | e0fe7c3131c4a18ddd9dd9f2afdd46cafc8cd7ae (diff) | |
| download | haskell-52ba9470a7e85d025dc84a6789aa809cdd68b566.tar.gz | |
Allow use of the external interpreter in stage1.
Now that we have -fexternal-interpreter, we can lose most of the GHCI ifdefs.
Reviewers: simonmar, goldfire, austin, hvr, bgamari
Reviewed By: simonmar
Subscribers: RyanGlScott, mpickering, angerman, thomie
Differential Revision: https://phabricator.haskell.org/D2826
Diffstat (limited to 'compiler/hsSyn')
| -rw-r--r-- | compiler/hsSyn/HsExpr.hs | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/compiler/hsSyn/HsExpr.hs b/compiler/hsSyn/HsExpr.hs index 8cead39c68..d695d8e651 100644 --- a/compiler/hsSyn/HsExpr.hs +++ b/compiler/hsSyn/HsExpr.hs @@ -48,10 +48,8 @@ import Data.Data hiding (Fixity(..)) import qualified Data.Data as Data (Fixity(..)) import Data.Maybe (isNothing) -#ifdef GHCI import GHCi.RemoteTypes ( ForeignRef ) import qualified Language.Haskell.TH as TH (Q) -#endif {- ************************************************************************ @@ -2047,24 +2045,13 @@ isTypedSplice _ = False -- Quasi-quotes are untyped splices -- See Note [Delaying modFinalizers in untyped splices] in RnSplice. For how -- this is used. -- -#ifdef GHCI newtype ThModFinalizers = ThModFinalizers [ForeignRef (TH.Q ())] -#else -data ThModFinalizers = ThModFinalizers -#endif -- A Data instance which ignores the argument of 'ThModFinalizers'. -#ifdef GHCI instance Data ThModFinalizers where gunfold _ z _ = z $ ThModFinalizers [] toConstr a = mkConstr (dataTypeOf a) "ThModFinalizers" [] Data.Prefix dataTypeOf a = mkDataType "HsExpr.ThModFinalizers" [toConstr a] -#else -instance Data ThModFinalizers where - gunfold _ z _ = z ThModFinalizers - toConstr a = mkConstr (dataTypeOf a) "ThModFinalizers" [] Data.Prefix - dataTypeOf a = mkDataType "HsExpr.ThModFinalizers" [toConstr a] -#endif -- | Haskell Spliced Thing -- |