Fix ./validate failure due to -Werror
authorAustin Seipp <austin@well-typed.com>
Tue, 14 Jan 2014 01:15:51 +0000 (19:15 -0600)
committerAustin Seipp <austin@well-typed.com>
Tue, 14 Jan 2014 09:46:08 +0000 (03:46 -0600)
This occurs when doing bootstraps with the 7.7 compiler.

Signed-off-by: Austin Seipp <austin@well-typed.com>
compiler/specialise/SpecConstr.lhs

index 056044a..6332c6b 100644 (file)
@@ -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(..) )