Mainly, rename LiteralTy to LitTy
[ghc.git] / compiler / typecheck / TcErrors.lhs
index 5a24419..476ad6e 100644 (file)
@@ -686,7 +686,7 @@ quickFlattenTy :: TcType -> TcM TcType
 quickFlattenTy ty | Just ty' <- tcView ty = quickFlattenTy ty'
 quickFlattenTy ty@(TyVarTy {})  = return ty
 quickFlattenTy ty@(ForAllTy {}) = return ty     -- See
-quickFlattenTy ty@(LiteralTy _) = return ty
+quickFlattenTy ty@(LitTy {})    = return ty
   -- Don't flatten because of the danger or removing a bound variable
 quickFlattenTy (AppTy ty1 ty2) = do { fy1 <- quickFlattenTy ty1
                                     ; fy2 <- quickFlattenTy ty2