[commit: ghc] wip/hasfield: Resolve module import loop by adding a new boot file :-( (068f69b)

git at git.haskell.org git at git.haskell.org
Mon May 16 08:07:31 UTC 2016


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/hasfield
Link       : http://ghc.haskell.org/trac/ghc/changeset/068f69b4021cd129e7398dfffa0073f06f802382/ghc

>---------------------------------------------------------------

commit 068f69b4021cd129e7398dfffa0073f06f802382
Author: Adam Gundry <adam at well-typed.com>
Date:   Wed Dec 23 11:52:23 2015 +0000

    Resolve module import loop by adding a new boot file :-(


>---------------------------------------------------------------

068f69b4021cd129e7398dfffa0073f06f802382
 compiler/hsSyn/PlaceHolder.hs                                         | 2 +-
 compiler/typecheck/TcEvidence.hs                                      | 2 +-
 .../drvrun015.stdout => compiler/typecheck/TcEvidence.hs-boot         | 4 +++-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/compiler/hsSyn/PlaceHolder.hs b/compiler/hsSyn/PlaceHolder.hs
index 8e3b9a3..a29d387 100644
--- a/compiler/hsSyn/PlaceHolder.hs
+++ b/compiler/hsSyn/PlaceHolder.hs
@@ -15,7 +15,7 @@ import RdrName
 import Var
 import Coercion
 import {-# SOURCE #-} ConLike (ConLike)
-import TcEvidence (HsWrapper)
+import {-# SOURCE #-} TcEvidence (HsWrapper)
 import FieldLabel
 import SrcLoc (Located)
 
diff --git a/compiler/typecheck/TcEvidence.hs b/compiler/typecheck/TcEvidence.hs
index e2ad4b8..ddac3e4 100644
--- a/compiler/typecheck/TcEvidence.hs
+++ b/compiler/typecheck/TcEvidence.hs
@@ -53,7 +53,7 @@ import VarEnv
 import VarSet
 import Name
 import Pair
-import HsExpr ( HsExpr )
+import {-# SOURCE #-} HsExpr ( HsExpr )
 
 import Util
 import Bag
diff --git a/testsuite/tests/deriving/should_run/drvrun015.stdout b/compiler/typecheck/TcEvidence.hs-boot
similarity index 60%
copy from testsuite/tests/deriving/should_run/drvrun015.stdout
copy to compiler/typecheck/TcEvidence.hs-boot
index d7059cd..48c3cbc 100644
--- a/testsuite/tests/deriving/should_run/drvrun015.stdout
+++ b/compiler/typecheck/TcEvidence.hs-boot
@@ -1 +1,3 @@
-"Obj {_id = 1, p1 = 10, p2 = 20}"
+module TcEvidence where
+
+data HsWrapper



More information about the ghc-commits mailing list