Fix for GHC 7.10 part 1: replace PostTcType

schell · Mar 26, 2015 · dec9235 · dec9235
1 parent 25479ad
commit dec9235
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Info.hs b/src/Info.hs
@@ -208,7 +208,7 @@ everythingStaged stage k z f x
   | (const False `extQ` postTcType `extQ` fixity `extQ` nameSet) x = z
   | otherwise = foldl k (f x) (gmapQ (everythingStaged stage k z f) x)
   where nameSet    = const (stage `elem` [Parser,TypeChecker]) :: NameSet.NameSet -> Bool
-        postTcType = const (stage<TypeChecker)                 :: GHC.PostTcType -> Bool
+        postTcType = const (stage<TypeChecker)                 :: GHC.PostTc GHC.Id GHC.Type -> Bool
         fixity     = const (stage<Renamer)                     :: GHC.Fixity -> Bool
 
 ------------------------------------------------------------------------------