ghc-9.12.4.20260713: The GHC API
Safe HaskellNone
LanguageGHC2021

GHC.Tc.Utils.Unify

Description

Type subsumption and unification

Synopsis

Documentation

tcSubType Source #

Arguments

:: CtOrigin 
-> UserTypeCtxt 
-> TcSigmaType

Actual

-> ExpRhoType

Expected

-> TcM HsWrapper 

checkConstraints :: SkolemInfoAnon -> [TcTyVar] -> [EvVar] -> TcM result -> TcM (TcEvBinds, result) Source #

checkTvConstraints :: SkolemInfo -> [TcTyVar] -> TcM result -> TcM result Source #

data DeepSubsumptionFlag Source #

Constructors

Deep 
Shallow 

Instances

Instances details
Outputable DeepSubsumptionFlag Source # 
Instance details

Defined in GHC.Tc.Utils.Unify

tcSkolemiseCompleteSig :: TcCompleteSig -> ([ExpPatType] -> TcRhoType -> TcM result) -> TcM (HsWrapper, result) Source #

The wrapper has type: spec_ty ~> expected_ty See Note [Skolemisation] for the differences between tcSkolemiseCompleteSig and tcTopSkolemise

unifyType Source #

Arguments

:: Maybe TypedThing

If present, the thing that has type ty1

-> TcTauType 
-> TcTauType 
-> TcM TcCoercionN 

touchabilityTest :: TcLevel -> TcTyVar -> Bool Source #

This is the key test for untouchability: See Note [Unification preconditions] in GHC.Tc.Utils.Unify and Note [Solve by unification] in GHC.Tc.Solver.Equality

True = the variable is touchable

checkTopShape :: MetaInfo -> TcType -> Bool Source #

checkTopShape checks (TYVAR-TV) Note [Unification preconditions]; returns True if these conditions are satisfied. But see the Note for other preconditions, too.

tcInfer :: (ExpSigmaType -> TcM a) -> TcM (a, TcSigmaType) Source #

Infer a type using a fresh ExpType See also Note [ExpType] in GHC.Tc.Utils.TcMType

Use tcInferFRR if you require the type to have a fixed runtime representation.

matchExpectedFunTys :: ExpectedFunTyOrigin -> UserTypeCtxt -> VisArity -> ExpSigmaType -> ([ExpPatType] -> ExpRhoType -> TcM a) -> TcM (HsWrapper, a) Source #

Use this function to split off arguments types when you have an "expected" type.

This function skolemises at each polytype.

Invariant: this function only applies the provided function to a list of argument types which all have a syntactically fixed RuntimeRep in the sense of Note [Fixed RuntimeRep] in GHC.Tc.Utils.Concrete. See Note [Return arguments with a fixed RuntimeRep].

matchExpectedFunKind Source #

Arguments

:: TypedThing

type, only for errors

-> Arity

n: number of desired arrows

-> TcKind

fun_kind

-> TcM Coercion

co :: fun_kind ~ (arg1 -> ... -> argn -> res)

Breaks apart a function kind into its pieces.

matchActualFunTy Source #

Arguments

:: ExpectedFunTyOrigin

See Note [Herald for matchExpectedFunTys]

-> Maybe TypedThing

The thing with type TcSigmaType

-> (Arity, TcType)

Total number of value args in the call, and the original function type (Both are used only for error messages)

-> TcRhoType

Type to analyse: a TcRhoType

-> TcM (HsWrapper, Scaled TcSigmaTypeFRR, TcSigmaType) 

matchActualFunTy looks for just one function arrow, returning an uninstantiated sigma-type.

Invariant: the returned argument type has a syntactically fixed RuntimeRep in the sense of Note [Fixed RuntimeRep] in GHC.Tc.Utils.Concrete.

See Note [Return arguments with a fixed RuntimeRep].

matchActualFunTys Source #

Arguments

:: ExpectedFunTyOrigin

See Note [Herald for matchExpectedFunTys]

-> CtOrigin 
-> Arity 
-> TcSigmaType 
-> TcM (HsWrapper, [Scaled TcSigmaTypeFRR], TcRhoType) 

Like matchExpectedFunTys, but used when you have an "actual" type, for example in function application.

INVARIANT: the returned argument types all have a syntactically fixed RuntimeRep in the sense of Note [Fixed RuntimeRep] in GHC.Tc.Utils.Concrete. See Note [Return arguments with a fixed RuntimeRep].

data PuResult a b Source #

Constructors

PuFail CheckTyEqResult 
PuOK (Bag a) b 

Instances

Instances details
Applicative (PuResult a) Source # 
Instance details

Defined in GHC.Tc.Utils.Unify

Methods

pure :: a0 -> PuResult a a0 #

(<*>) :: PuResult a (a0 -> b) -> PuResult a a0 -> PuResult a b #

liftA2 :: (a0 -> b -> c) -> PuResult a a0 -> PuResult a b -> PuResult a c #

(*>) :: PuResult a a0 -> PuResult a b -> PuResult a b #

(<*) :: PuResult a a0 -> PuResult a b -> PuResult a a0 #

Functor (PuResult a) Source # 
Instance details

Defined in GHC.Tc.Utils.Unify

Methods

fmap :: (a0 -> b) -> PuResult a a0 -> PuResult a b #

(<$) :: a0 -> PuResult a b -> PuResult a a0 #

Foldable (PuResult a) Source # 
Instance details

Defined in GHC.Tc.Utils.Unify

Methods

fold :: Monoid m => PuResult a m -> m #

foldMap :: Monoid m => (a0 -> m) -> PuResult a a0 -> m #

foldMap' :: Monoid m => (a0 -> m) -> PuResult a a0 -> m #

foldr :: (a0 -> b -> b) -> b -> PuResult a a0 -> b #

foldr' :: (a0 -> b -> b) -> b -> PuResult a a0 -> b #

foldl :: (b -> a0 -> b) -> b -> PuResult a a0 -> b #

foldl' :: (b -> a0 -> b) -> b -> PuResult a a0 -> b #

foldr1 :: (a0 -> a0 -> a0) -> PuResult a a0 -> a0 #

foldl1 :: (a0 -> a0 -> a0) -> PuResult a a0 -> a0 #

toList :: PuResult a a0 -> [a0] #

null :: PuResult a a0 -> Bool #

length :: PuResult a a0 -> Int #

elem :: Eq a0 => a0 -> PuResult a a0 -> Bool #

maximum :: Ord a0 => PuResult a a0 -> a0 #

minimum :: Ord a0 => PuResult a a0 -> a0 #

sum :: Num a0 => PuResult a a0 -> a0 #

product :: Num a0 => PuResult a a0 -> a0 #

Traversable (PuResult a) Source # 
Instance details

Defined in GHC.Tc.Utils.Unify

Methods

traverse :: Applicative f => (a0 -> f b) -> PuResult a a0 -> f (PuResult a b) #

sequenceA :: Applicative f => PuResult a (f a0) -> f (PuResult a a0) #

mapM :: Monad m => (a0 -> m b) -> PuResult a a0 -> m (PuResult a b) #

sequence :: Monad m => PuResult a (m a0) -> m (PuResult a a0) #

(Outputable a, Outputable b) => Outputable (PuResult a b) Source # 
Instance details

Defined in GHC.Tc.Utils.Unify

Methods

ppr :: PuResult a b -> SDoc Source #

data TyEqFlags a Source #

Options describing how to deal with a type equality in the pure unifier. See checkTyEqRhs

Instances

Instances details
Outputable (TyEqFlags a) Source # 
Instance details

Defined in GHC.Tc.Utils.Unify

Methods

ppr :: TyEqFlags a -> SDoc Source #

data TyEqFamApp a Source #

What to do when encountering a type-family application while processing a type equality in the pure unifier.

See Note [Family applications in canonical constraints]

Instances

Instances details
Outputable (TyEqFamApp a) Source # 
Instance details

Defined in GHC.Tc.Utils.Unify

Methods

ppr :: TyEqFamApp a -> SDoc Source #

data AreUnifying Source #

Instances

Instances details
Outputable AreUnifying Source # 
Instance details

Defined in GHC.Tc.Utils.Unify

Methods

ppr :: AreUnifying -> SDoc Source #

data LevelCheck Source #

Instances

Instances details
Outputable LevelCheck Source # 
Instance details

Defined in GHC.Tc.Utils.Unify

Methods

ppr :: LevelCheck -> SDoc Source #

data FamAppBreaker a where Source #

How to break a family-application cycle when checking a type equality. Given a family-application fam_app, return a Reduction :: fam_app ~ cbv where cbv is a fresh cycle-breaker tyvar (for Given), or a fresh TauTv (for Wanted).

Instances

Instances details
Outputable (FamAppBreaker a) Source # 
Instance details

Defined in GHC.Tc.Utils.Unify

Methods

ppr :: FamAppBreaker a -> SDoc Source #

simpleUnifyCheck :: UnifyCheckCaller -> TcLevel -> TcTyVar -> TcType -> SimpleUnifyResult Source #

A fast check for unification. May return "not sure", in which case unification might still be OK, but it'll take more work to do (use the full checkTypeEq).

  • Rejects if lhs_tv occurs in rhs_ty (occurs check)
  • Rejects foralls unless lhs_tv is RuntimeUnk (used by GHCi debugger) or is a QL instantiation variable
  • Rejects a non-concrete type if lhs_tv is concrete
  • Rejects type families unless fam_ok=True
  • Does a level-check for type variables, to avoid skolem escape

This function is pretty heavily used, so it's optimised not to allocate

data SimpleUnifyResult Source #

The result type of simpleUnifyCheck.

Constructors

SUC_CannotUnify

Definitely cannot unify (untouchable variable or incompatible top-shape)

SUC_NotSure

The variable is touchable and the top-shape test passed, but it may or may not be OK to unify

SUC_CanUnify

Definitely OK to unify

fillInferResult :: TcType -> InferResult -> TcM TcCoercionN Source #

Fill an InferResult with the given type.

If co = fillInferResult t1 infer_res, then co :: t1 ~# t2, where t2 is the type stored in the ir_ref field of infer_res.

This function enforces the following invariants:

  • Level invariant. The stored type t2 is at the same level as given by the ir_lvl field.
  • FRR invariant. Whenever the ir_frr field is not Nothing, t2 is guaranteed to have a syntactically fixed RuntimeRep, in the sense of Note [Fixed RuntimeRep] in GHC.Tc.Utils.Concrete.