Morley.Michelson.TypeCheck.TypeCheck

Documentation

type TcInstrHandler = forall inp. (SingI inp, HasCallStack) => ExpandedInstr -> HST inp -> TypeCheckInstrNoExcept (TypeCheckedSeq inp)

type TcOriginatedContracts = Map ContractHash SomeParamType

data TypeCheckEnv

The typechecking state

Constructors

TypeCheckEnv

Fields

• tcExtFrames :: ~TcExtFrames
• tcMode :: ~TypeCheckMode

data TypeCheckOptions

Constructors

TypeCheckOptions

Fields

• tcVerbose :: Bool

  Whether to add stack type comments after every instruction a la tezos-client.

• tcStrict :: Bool

  Whether should we behave like in test run or real run (real run is more strict).

  tezos-client run's behaviour can slightly differ from the behaviour of tezos-client originate and tezos-client transfer. For instance, some values can be "forged" in test run, but not in a real one, see: Note [Tickets forging].

  Set this to True when need to match the behaviour in the network, and to False if you prefer providing the user with some convenient features.

Instances

Default TypeCheckOptions

Defined in Morley.Michelson.TypeCheck.TypeCheck

Methods

def :: TypeCheckOptions

type TypeCheck = ReaderT TypeCheckOptions (ExceptT TCError (State TypeCheckEnv))

type TypeCheckNoExcept = ReaderT TypeCheckOptions (State TypeCheckEnv)

A non-throwing alternative for TypeCheck. Mainly meant to be used for construction of a partially typed tree (see TypeCheckedSeq).

type TypeCheckResult = ReaderT TypeCheckOptions (Except TCError)

Monad for performing some typechecking operations with the same options.

Unlike TypeCheck monad, this does not carry the context of intra-contract or intra-value typechecking. TODO [this MR]: probably come up with a better name? IntraTypeCheck?

runTypeCheck :: TypeCheckMode -> TypeCheck a -> TypeCheckResult a

type TypeCheckInstr = ReaderT InstrCallStack TypeCheck

type TypeCheckInstrNoExcept = ReaderT InstrCallStack TypeCheckNoExcept

runTypeCheckIsolated :: TypeCheck a -> TypeCheckResult a

Run type checker as if it worked isolated from other world - no access to environment of the current contract is allowed.

Use this function for test purposes only or for some utilities when environment does not matter. In particular, it is assumed that whatever we typecheck does not depend on the parameter type of the contract which is being typechecked (because there is no contract that we are typechecking).

runTypeCheckInstrIsolated :: TypeCheckInstr a -> TypeCheckResult a

Similar to runTypeCheckIsolated, but for 'TypeCheckInstr.'

typeCheckingWith :: TypeCheckOptions -> TypeCheckResult a -> Either TCError a

liftNoExcept :: TypeCheckInstrNoExcept a -> TypeCheckInstr a

liftNoExcept' :: TypeCheckNoExcept a -> TypeCheck a

throwingTCError :: TypeCheckInstrNoExcept (TypeCheckedSeq inp) -> TypeCheckInstr (SomeInstr inp)

throwingTCError' :: TypeCheckNoExcept (TypeCheckedSeq inp) -> TypeCheck (SomeInstr inp)

preserving

Arguments

:: TypeCheckInstrNoExcept (TypeCheckedSeq inp)

Acquiring computation

-> ([TypeCheckedOp] -> TypeCheckedInstr)

The parent instruction constructor

-> (SomeInstr inp -> TypeCheckInstr (SomeInstr inp'))

The throwing action

-> TypeCheckInstrNoExcept (TypeCheckedSeq inp')

Perform a throwing action on an acquired instruction. Preserve the acquired result by embedding it into a type checking tree with a specified parent instruction.

preserving'

Arguments

:: TypeCheckInstrNoExcept (TypeCheckedSeq inp)

Acquiring computation

-> ([TypeCheckedOp] -> TypeCheckedInstr)

The parent instruction constructor

-> (SomeInstr inp -> TypeCheckInstrNoExcept (TypeCheckedSeq inp'))

The action

-> TypeCheckInstrNoExcept (TypeCheckedSeq inp')

Perform a non-throwing action on an acquired instruction. Preserve the acquired result even if the action does not succeed. Embed the result into a type checking tree with a specified parent instruction.

guarding

Arguments

:: ExpandedInstr

Untyped instruction

-> TypeCheckInstr a

Acquiring computation

-> (a -> TypeCheckInstrNoExcept (TypeCheckedSeq inp))

Follow-up action

-> TypeCheckInstrNoExcept (TypeCheckedSeq inp)

Acquire a resource. If successfully, call a follow-up action on it, otherwise embed the error into a type checking tree along with a specified untyped instruction.

guarding_ :: ExpandedInstr -> TypeCheckInstr a -> TypeCheckInstrNoExcept (TypeCheckedSeq inp) -> TypeCheckInstrNoExcept (TypeCheckedSeq inp)

Same as guarding but doesn't pass an acquired result to a follow-up action.

tcEither

Arguments

:: (TCError -> TypeCheckInstrNoExcept a)

Call this if the action throws

-> (b -> TypeCheckInstrNoExcept a)

Call this if it doesn't

-> TypeCheckInstr b

The action to perform

-> TypeCheckInstrNoExcept a

A non-throwing action

tcExtFramesL :: Lens' TypeCheckEnv TcExtFrames

tcModeL :: Lens' TypeCheckEnv TypeCheckMode

data TypeCheckMode

Typechecking mode that tells the type checker whether it is typechecking contract code in actual contract, lambda, or test.

Constructors

TypeCheckValue (Value, T)

TypeCheckContract SomeParamType

TypeCheckTest

TypeCheckPack

data SomeParamType

Constructors

forall t.ParameterScope t => SomeParamType (Sing t) (ParamNotes t)

Instances

Eq SomeParamType

Eq instance of SomeParamType, mainly used in test.

Defined in Morley.Michelson.TypeCheck.TypeCheck

Methods

(==) :: SomeParamType -> SomeParamType -> Bool

(/=) :: SomeParamType -> SomeParamType -> Bool

Show SomeParamType

Show instance of SomeParamType, mainly used in test.

Defined in Morley.Michelson.TypeCheck.TypeCheck

Methods

showsPrec :: Int -> SomeParamType -> ShowS

show :: SomeParamType -> String

showList :: [SomeParamType] -> ShowS

Buildable SomeParamType

Buildable instance of SomeParamType, mainly used in test.

Defined in Morley.Michelson.TypeCheck.TypeCheck

Methods

build :: SomeParamType -> Builder

mkSomeParamType :: ParameterType -> Either TCError SomeParamType

unsafeMkSomeParamType :: HasCallStack => ParameterType -> SomeParamType

Construct SomeParamType from ParameterType, mainly used in test.