summaryrefslogtreecommitdiff
path: root/compiler/specialise
diff options
context:
space:
mode:
authorAustin Seipp <austin@well-typed.com>2014-01-13 19:15:51 -0600
committerAustin Seipp <austin@well-typed.com>2014-01-14 03:46:08 -0600
commit4571b4026248f5b1dc94a46d08b7f88164a5dce2 (patch)
tree6b9cdd19022fd71ec603ad5ed25b75882c4f91b8 /compiler/specialise
parent0537cb7e35995cbfb7de2da4b742816328bb71ab (diff)
downloadhaskell-4571b4026248f5b1dc94a46d08b7f88164a5dce2.tar.gz
Fix ./validate failure due to -Werror
This occurs when doing bootstraps with the 7.7 compiler. Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'compiler/specialise')
-rw-r--r--compiler/specialise/SpecConstr.lhs4
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/specialise/SpecConstr.lhs b/compiler/specialise/SpecConstr.lhs
index 056044ae47..6332c6b5d2 100644
--- a/compiler/specialise/SpecConstr.lhs
+++ b/compiler/specialise/SpecConstr.lhs
@@ -31,7 +31,7 @@ import DataCon
import Coercion hiding( substTy, substCo )
import Rules
import Type hiding ( substTy )
-import TyCon ( isRecursiveTyCon )
+import TyCon ( isRecursiveTyCon, tyConName )
import Id
import MkCore ( mkImpossibleExpr )
import Var
@@ -53,11 +53,11 @@ import UniqFM
import MonadUtils
import Control.Monad ( zipWithM )
import Data.List
-import TyCon ( TyCon, tyConName )
import PrelNames ( specTyConName )
-- See Note [Forcing specialisation]
#ifndef GHCI
+import TyCon ( TyCon )
type SpecConstrAnnotation = ()
#else
import GHC.Exts( SpecConstrAnnotation(..) )