From 8ba1296c39129d645cb7ff2a4c06e8b1755f5e27 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 15 Jul 1999 09:51:52 +0000
Subject: [PATCH] [project @ 1999-07-15 09:51:52 by simonmar] A prime example
 of how an inconsistent .hi-boot file can really ruin your day: the definition
 of CoreRules in CoreSyn.hi-boot was out of sync with the real one, which
 meant that the compiler generated the wrong code for a `seq` on something of
 type CoreRules.

---
 ghc/compiler/coreSyn/CoreSyn.hi-boot   | 2 +-
 ghc/compiler/coreSyn/CoreSyn.hi-boot-5 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/coreSyn/CoreSyn.hi-boot b/ghc/compiler/coreSyn/CoreSyn.hi-boot
index 3ea40f47d992..c2fb8bf8b889 100644
--- a/ghc/compiler/coreSyn/CoreSyn.hi-boot
+++ b/ghc/compiler/coreSyn/CoreSyn.hi-boot
@@ -8,7 +8,7 @@ _declarations_
 1 data Expr b ;
 
 1 data CoreRule ;
-1 type CoreRules = [CoreRule] ;
+1 data CoreRules = Rules [CoreRule] VarSet.IdOrTyVarSet ;;
 1 emptyCoreRules _:_ CoreRules ;;
 1 seqRules _:_ CoreRules -> PrelBase.() ;;
 1 isEmptyCoreRules _:_ CoreRules -> PrelBase.Bool ;;
diff --git a/ghc/compiler/coreSyn/CoreSyn.hi-boot-5 b/ghc/compiler/coreSyn/CoreSyn.hi-boot-5
index d8ad7ffe6980..2ddc75bb324c 100644
--- a/ghc/compiler/coreSyn/CoreSyn.hi-boot-5
+++ b/ghc/compiler/coreSyn/CoreSyn.hi-boot-5
@@ -6,7 +6,7 @@ __export CoreSyn CoreExpr CoreRules CoreRule emptyCoreRules isEmptyCoreRules seq
 1 data Expr b ;
 
 1 data CoreRule ;
-1 type CoreRules = [CoreRule] ;
+1 data CoreRules = Rules [CoreRule] VarSet.IdOrTyVarSet ;
 1 emptyCoreRules :: CoreRules ;
 1 seqRules :: CoreRules -> PrelBase.Z0T ;
 1 isEmptyCoreRules :: CoreRules -> PrelBase.Bool ;
-- 
GitLab