Commit 4571b402 authored by Austin Seipp's avatar Austin Seipp

Fix ./validate failure due to -Werror

This occurs when doing bootstraps with the 7.7 compiler.
Signed-off-by: default avatarAustin Seipp <austin@well-typed.com>
parent 0537cb7e
......@@ -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(..) )
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment