HORIZON HASKELLDocslts/ghc-9.10.x248f8f02026-10-05Search names, modules, packages, or :: a typeCtrl K

GHC 9.10.3 · lts/ghc-9.10.x · 248f8f0 · 2026-10-05

Moduleghc-9.10.3GHC2021

GHC.Types.Demand

A language to express the evaluation context of an expression as a Demand and track how an expression evaluates free variables and arguments in turn as a DmdType.

Lays out the abstract domain for GHC.Core.Opt.DmdAnal.

  • 12 types
  • 101 values
  • Packageghc-9.10.3
  • Exports120
  • LanguageGHC2021
  • LicenceBSD-3-Clause
  • SourceDemand.hs

Demands

15 declarations
datadata Boxity
#
Instances4Eq, Data, Outputable, Binary
  • Eq BoxityDefined in ghc-9.10.3 · Language.Haskell.Syntax.Basic
  • Data BoxityDefined in ghc-9.10.3 · Language.Haskell.Syntax.Basic
  • Outputable BoxityDefined in ghc-9.10.3 · GHC.Types.Basic · orphan
  • Binary BoxityDefined in ghc-9.10.3 · GHC.Types.Basic · orphan
newtypenewtype Card
#

Describes an interval of evaluation cardinalities. See Note [Evaluation cardinalities] See Note [Bit vector representation for Card]

Instances4Eq, Show, Outputable, Binary
  • Eq CardDefined in ghc-9.10.3 · GHC.Types.Demand
  • Show CardDefined in ghc-9.10.3 · GHC.Types.Demand
  • Outputable CardDefined in ghc-9.10.3 · GHC.Types.Demand

    See Note [Demand notation] Current syntax was discussed in #19016.

  • Binary CardDefined in ghc-9.10.3 · GHC.Types.Demand
patternpattern C_00 :: Card
#

Absent, {0}. Pretty-printed as A.

patternpattern C_01 :: Card
#

Used at most once, {0,1}. Pretty-printed as M.

patternpattern C_0N :: Card
#

Every possible cardinality; the top element, {0,1,n}. Pretty-printed as L.

patternpattern C_10 :: Card
#

Bottom, {}. Pretty-printed as A.

patternpattern C_11 :: Card
#

Strict and used once, {1}. Pretty-printed as 1.

patternpattern C_1N :: Card
#

Strict and used (possibly) many times, {1,n}. Pretty-printed as S.

typetype CardNonAbs = Card
#

A subtype of Card for which the upper bound is never 0 (no C_00 or C_10). The only four inhabitants are C_01, C_0N, C_11, C_1N. Membership can be tested with isCardNonAbs. See D and Call for use sites and explanation.

typetype CardNonOnce = Card
#

A subtype of Card for which the upper bound is never 1 (no C_01 or C_11). The only four inhabitants are C_00, C_0N, C_10, C_1N. Membership can be tested with isCardNonOnce. See Poly for use sites and explanation.

datadata Demand
#

A demand describes

  • How many times a variable is evaluated, via a Cardinality, and

  • How deep its value was evaluated in turn, via a SubDemand.

Examples (using Note [Demand notation]):

  • seq puts demand `1A` on its first argument: It evaluates the argument strictly (`1`), but not any deeper (A).

  • fst puts demand `1P(1L,A)` on its argument: It evaluates the argument pair strictly and the first component strictly, but no nested info beyond that (L). Its second argument is not used at all.

  • $ puts demand `1C(1,L)` on its first argument: It calls (C) the argument function with one argument, exactly once (`1`). No info on how the result of that call is evaluated (L).

  • maybe puts demand `MC(M,L)` on its second argument: It evaluates the argument function at most once ((M)aybe) and calls it once when it is evaluated.

  • `fst p + fst p` puts demand `SP(SL,A)` on p: It's `1P(1L,A)` multiplied by two, so we get S (used at least once, possibly multiple times).

This data type is quite similar to `Scaled SubDemand', but it's scaled by Card, which is an interval on Multiplicity, the upper bound of which could be used to infer uniqueness types. Also we treat AbsDmd and BotDmd specially, as the concept of a SubDemand doesn't apply when there isn't any evaluation at all. If you don't care, simply use (:*).

Constructors

  • BotDmd

    A bottoming demand, produced by a diverging function (C_10), hence there is no SubDemand that describes how it was evaluated.

  • AbsDmd

    An absent demand: Evaluated exactly 0 times (C_00), hence there is no SubDemand that describes how it was evaluated.

Instances3Eq, Outputable, Binary
  • Eq DemandDefined in ghc-9.10.3 · GHC.Types.Demand
  • Outputable DemandDefined in ghc-9.10.3 · GHC.Types.Demand

    See Note [Demand notation]

  • Binary DemandDefined in ghc-9.10.3 · GHC.Types.Demand
patternpattern (:*) :: HasDebugCallStack => Card -> SubDemand -> Demand
#

c :* sd is a demand that says "evaluated c times, and any trace in which it is evaluated will evaluate at least as deep as sd".

Matching on this pattern synonym is a complete match. If the matched demand was AbsDmd, it will match as C_00 :* seqSubDmd. If the matched demand was BotDmd, it will match as C_10 :* botSubDmd. The builder of this pattern synonym simply discards the SubDemand if the Card was absent and returns AbsDmd or BotDmd instead. It will assert that the discarded sub-demand was seqSubDmd and botSubDmd, respectively.

Call sites should consider whether they really want to look at the SubDemand of an absent demand and match on AbsDmd and/or BotDmd otherwise. Really, any other SubDemand would be allowed and might work better, depending on context.

datadata SubDemand
#

A sub-demand describes an evaluation context (in the sense of an operational semantics), e.g. how deep the denoted thing is going to be evaluated. See Demand for examples.

See Note [SubDemand denotes at least one evaluation] for a more detailed description of what a sub-demand means.

See Note [Demand notation] for the extensively used short-hand notation. See also Note [Why Boxity in SubDemand and not in Demand?].

Constructors

  • Poly !Boxity !CardNonOnce

    Polymorphic demand, the denoted thing is evaluated arbitrarily deep, with the specified cardinality at every level. The Boxity applies only to the outer evaluation context as well as all inner evaluation context. See Note [Boxity in Poly] for why we want it to carry Boxity. Expands to Call via viewCall and to Prod via viewProd.

    Poly b n is semantically equivalent to Prod b [n :* Poly b n, ...] or Call n (Poly Boxed n)@. viewCall and viewProd do these rewrites.

    In Note [Demand notation]: L === P(L,L,...) and L === C(L), B === P(B,B,...) and B === C(B), !A === !P(A,A,...) and !A === C(A), and so on.

    We'll only see Poly with C_10 (B), C_00 (A), C_0N (L) and sometimes C_1N (S) through plusSubDmd, never C_01 (M) or C_11 (1) (grep the source code). Hence CardNonOnce, which is closed under lub and plus.

    Why doesn't this constructor simply carry a Demand instead of its fields? See Note [Call SubDemand vs. evaluation Demand].

  • Prod !Boxity ![Demand]

    Prod b ds describes the evaluation context of a case scrutinisation on an expression of product type, where the product components are evaluated according to ds. The Boxity b says whether or not the box of the product was used.

Instances3Eq, Outputable, Binary
valuemkProd :: Boxity -> [Demand] -> SubDemand
#

A smart constructor for Prod, applying rewrite rules along the semantic equality Prod b [n :* Poly Boxed n, ...] === Poly b n, simplifying to Poly SubDemands when possible. Examples:

  • Rewrites P(L,L) (e.g., arguments Boxed, [L,L]) to L

  • Rewrites !P(L!L,L!L) (e.g., arguments Unboxed, [L!L,L!L]) to !L

  • Does not rewrite P(1L), P(L!L), !P(L) or P(L,A)

Algebra

Least upper bound

Greatest lower bound

Plus

Multiply

Predicates on Cardinalities and Demands

valueisTopDmd :: Demand -> Bool
#

Used to suppress pretty-printing of an uninformative demand

valueisWeakDmd :: Demand -> Bool
#

We try to avoid tracking weak free variable demands in strictness signatures for analysis performance reasons. See Note [Lazy and unleashable free variables] in GHC.Core.Opt.DmdAnal.

Special demands

Demands used in PrimOp signatures

valuelazyApply1Dmd :: Demand
#

First argument of catch#: MC(1,L). Evaluates its arg lazily, but then applies it exactly once to one argument.

valuelazyApply2Dmd :: Demand
#

Second argument of catch#: MC(1,C(1,L)). Evaluates its arg lazily, but then applies it exactly once to two arguments.

Other Demand operations

valuestrictifyDictDmd :: Type -> Demand -> Demand
#

If the argument is a guaranteed-terminating type (i.e. a non-newtype dictionary) give it strict demand. This is sound because terminating types can't be bottom: See GHC.Core Note [NON-BOTTOM-DICTS invariant] Also split the product type & demand and recur in order to similarly strictify the argument's contained used non-newtype superclass dictionaries. We use the demand as our recursive measure to guarantee termination.

valuefloatifyDmd :: Demand -> Demand
#

Adjust the demand on a binding that may float outwards See Note [Floatifying demand info when floating]

Extracting one-shot information

valuesaturatedByOneShots :: Int -> Demand -> Bool
#

saturatedByOneShots n C(M,C(M,...)) = True = There are at least n nested C(M,..) calls. See Note [Demand on the worker] in GHC.Core.Opt.WorkWrap

Manipulating Boxity of a Demand

Divergence

6 declarations
datadata Divergence
#

Divergence characterises whether something surely diverges. Models a subset lattice of the following exhaustive set of divergence results:

n

nontermination (e.g. loops)

i

throws imprecise exception

p

throws precise exception

c

converges (reduces to WHNF).

The different lattice elements correspond to different subsets, indicated by juxtaposition of indicators (e.g. nc definitely doesn't throw an exception, and may or may not reduce to WHNF).

            Dunno (nipc)
                 |
           ExnOrDiv (nip)
                 |
           Diverges (ni)

As you can see, we don't distinguish n and i. See Note [Precise exceptions and strictness analysis] for why p is so special compared to i.

Constructors

  • Diverges

    Definitely throws an imprecise exception or diverges.

  • ExnOrDiv

    Definitely throws a *precise* exception, an imprecise exception or diverges. Never converges, hence isDeadEndDiv! See scenario 1 in Note [Precise exceptions and strictness analysis].

  • Dunno

    Might diverge, throw any kind of exception or converge.

Instances3Eq, Outputable, Binary

Demand environments

7 declarations
datadata DmdEnv
#

Captures the result of an evaluation of an expression, by

  • Listing how the free variables of that expression have been evaluated (de_fvs)

  • Saying whether or not evaluation would surely diverge (de_div)

See Note [Demand env Equality].

Instances3Eq, Outputable, Binary

Demand types

2 declarations
datadata DmdType
#

Characterises how an expression

  • Evaluates its free variables (dt_env) including divergence info

  • Evaluates its arguments (dt_args)

Constructors

Instances3Eq, Outputable, Binary
  • Eq DmdTypeDefined in ghc-9.10.3 · GHC.Types.Demand

    See Note [Demand env Equality].

  • Outputable DmdTypeDefined in ghc-9.10.3 · GHC.Types.Demand
  • Binary DmdTypeDefined in ghc-9.10.3 · GHC.Types.Demand

Algebra

valuenopDmdType :: DmdType
#

The demand type of doing nothing (lazy, absent, no Divergence information). Note that it is 'not' the top of the lattice (which would be "may use everything"), so it is (no longer) called topDmdType.

Other operations

When e is evaluated after executing an IO action that may throw a precise exception, we act as if there is an additional control flow path that is taken if e throws a precise exception. The demand type of this control flow path * is lazy and absent (topDmd) and boxed in all free variables and arguments * has exnDiv Divergence result See Note [Precise exceptions and strictness analysis]

So we can simply take a variant of nopDmdType, exnDmdType. Why not nopDmdType? Because then the result of e can never be exnDiv! That means failure to drop dead-ends, see #18086.

Demand signatures

15 declarations
newtypenewtype DmdSig
#

The depth of the wrapped DmdType encodes the arity at which it is safe to unleash. Better construct this through mkDmdSigForArity. See Note [Understanding DmdType and DmdSig]

Constructors

Instances3Eq, Outputable, Binary
valueisBottomingSig :: DmdSig -> Bool
#

True if the signature diverges or throws an imprecise exception in a saturated call. NB: In constrast to isDeadEndSig this returns False for exnDiv. See Note [Dead ends] and Note [Precise vs imprecise exceptions].

valueisDeadEndSig :: DmdSig -> Bool
#

True if the signature diverges or throws an exception in a saturated call. See Note [Dead ends].

valueisDeadEndAppSig :: DmdSig -> Int -> Bool
#

Returns true if an application to n value args would diverge or throw an exception.

If a function having botDiv is applied to a less number of arguments than its syntactic arity, we cannot say for sure that it is going to diverge. Hence this function conservatively returns False in that case. See Note [Dead ends].

Handling arity adjustments

We are expanding (x y. e) to (x y z. e z) or reducing from the latter to the former (when the Simplifier identifies a new join points, for example). In contrast to prependArgsDmdSig, this appends extra arg demands if necessary. This works by looking at the DmdType (which was produced under a call demand for the old arity) and trying to transfer as many facts as we can to the call demand of new arity. An arity increase (resulting in a stronger incoming demand) can retain much of the info, while an arity decrease (a weakening of the incoming demand) must fall back to a conservative default.

Demand transformers from demand signatures

4 declarations
typetype DmdTransformer = SubDemand -> DmdType
#

A demand transformer is a monotone function from an incoming evaluation context (SubDemand) to a DmdType, describing how the denoted thing (i.e. expression, function) uses its arguments and free variables, and whether it diverges.

See Note [Understanding DmdType and DmdSig] and Note [What are demand signatures?].

Trim to a type shape

3 declarations

seqing stuff

4 declarations

Zapping usage information

4 declarations