Morley.Michelson.Text

Strings compliant with Michelson constraints.

When writting a Michelson contract, you can only mention characters with codes from [32 .. 126] range in string literals. Same restriction applies to string literals passed to octez-client.

However, Michelson allows some control sequences: "n". You have to write it exactly in this form, and internally it will be transformed to line feed character (this behaviour can be observed when looking at Packed data).

See tests for examples of good and bad strings.

Documentation

newtype MText

Michelson string value.

This is basically a mere text with limits imposed by the language: https://tezos.gitlab.io/whitedoc/michelson.html#constants Although, this document seems to be not fully correct, and thus we applied constraints deduced empirically.

You construct an item of this type using one of the following ways:

• With QuasyQuotes when need to create a string literal.

>>> [mt|Some text|]
UnsafeMText {unMText = "Some text"}

• With mkMText when constructing from a runtime text value.
• With UnsafeMText when absolutelly sure that given string does not violate invariants.
• With mkMTextCut when not sure about text contents and want to make it compliant with Michelson constraints.

Constructors

UnsafeMText

Fields

• unMText :: Text

Instances

FromJSON MText

Defined in Morley.Michelson.Text

Methods

parseJSON :: Value -> Parser MText

parseJSONList :: Value -> Parser [MText]

ToJSON MText

Defined in Morley.Michelson.Text

Methods

toJSON :: MText -> Value

toEncoding :: MText -> Encoding

toJSONList :: [MText] -> Value

toEncodingList :: [MText] -> Encoding

Data MText

Defined in Morley.Michelson.Text

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> MText -> c MText

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c MText

toConstr :: MText -> Constr

dataTypeOf :: MText -> DataType

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c MText)

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c MText)

gmapT :: (forall b. Data b => b -> b) -> MText -> MText

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> MText -> r

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> MText -> r

gmapQ :: (forall d. Data d => d -> u) -> MText -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> MText -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> MText -> m MText

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> MText -> m MText

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> MText -> m MText

Monoid MText

Defined in Morley.Michelson.Text

Methods

mempty :: MText

mappend :: MText -> MText -> MText

mconcat :: [MText] -> MText

Semigroup MText

Defined in Morley.Michelson.Text

Methods

(<>) :: MText -> MText -> MText

sconcat :: NonEmpty MText -> MText

stimes :: Integral b => b -> MText -> MText

Generic MText

Defined in Morley.Michelson.Text

Associated Types

type Rep MText :: Type -> Type

Methods

from :: MText -> Rep MText x

to :: Rep MText x -> MText

Show MText

Defined in Morley.Michelson.Text

Methods

showsPrec :: Int -> MText -> ShowS

show :: MText -> String

showList :: [MText] -> ShowS

NFData MText

Defined in Morley.Michelson.Text

Methods

rnf :: MText -> ()

Buildable MText

Defined in Morley.Michelson.Text

Methods

build :: MText -> Builder

Eq MText

Defined in Morley.Michelson.Text

Methods

(==) :: MText -> MText -> Bool

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

Ord MText

Defined in Morley.Michelson.Text

Methods

compare :: MText -> MText -> Ordering

(<) :: MText -> MText -> Bool

(<=) :: MText -> MText -> Bool

(>) :: MText -> MText -> Bool

(>=) :: MText -> MText -> Bool

max :: MText -> MText -> MText

min :: MText -> MText -> MText

Hashable MText

Defined in Morley.Michelson.Text

Methods

hashWithSalt :: Int -> MText -> Int

hash :: MText -> Int

HasRPCRepr MText

Defined in Morley.AsRPC

Associated Types

type AsRPC MText

TypeHasDoc MText

Defined in Morley.Michelson.Typed.Haskell.Doc

Associated Types

type TypeDocFieldDescriptions MText :: FieldDescriptions

Methods

typeDocName :: Proxy MText -> Text

typeDocMdDescription :: Markdown

typeDocMdReference :: Proxy MText -> WithinParens -> Markdown

typeDocDependencies :: Proxy MText -> [SomeDocDefinitionItem]

typeDocHaskellRep :: TypeDocHaskellRep MText

typeDocMichelsonRep :: TypeDocMichelsonRep MText

IsoValue MText

Defined in Morley.Michelson.Typed.Haskell.Value

Associated Types

type ToT MText :: T

Methods

toVal :: MText -> Value (ToT MText)

fromVal :: Value (ToT MText) -> MText

HasCLReader MText

Defined in Morley.Michelson.Text

Methods

getReader :: ReadM MText

getMetavar :: String

Container MText

Defined in Morley.Michelson.Text

Associated Types

type Element MText

Methods

toList :: MText -> [Element MText]

null :: MText -> Bool

foldr :: (Element MText -> b -> b) -> b -> MText -> b

foldl :: (b -> Element MText -> b) -> b -> MText -> b

foldl' :: (b -> Element MText -> b) -> b -> MText -> b

length :: MText -> Int

elem :: Element MText -> MText -> Bool

foldMap :: Monoid m => (Element MText -> m) -> MText -> m

fold :: MText -> Element MText

foldr' :: (Element MText -> b -> b) -> b -> MText -> b

notElem :: Element MText -> MText -> Bool

all :: (Element MText -> Bool) -> MText -> Bool

any :: (Element MText -> Bool) -> MText -> Bool

and :: MText -> Bool

or :: MText -> Bool

find :: (Element MText -> Bool) -> MText -> Maybe (Element MText)

safeHead :: MText -> Maybe (Element MText)

safeMaximum :: MText -> Maybe (Element MText)

safeMinimum :: MText -> Maybe (Element MText)

safeFoldr1 :: (Element MText -> Element MText -> Element MText) -> MText -> Maybe (Element MText)

safeFoldl1 :: (Element MText -> Element MText -> Element MText) -> MText -> Maybe (Element MText)

ToText MText

Defined in Morley.Michelson.Text

Methods

toText :: MText -> Text

type Rep MText

Defined in Morley.Michelson.Text

type Rep MText = D1 ('MetaData "MText" "Morley.Michelson.Text" "morley-1.19.0-inplace" 'True) (C1 ('MetaCons "UnsafeMText" 'PrefixI 'True) (S1 ('MetaSel ('Just "unMText") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)))

type AsRPC MText

Defined in Morley.AsRPC

type AsRPC MText = MText

type TypeDocFieldDescriptions MText

Defined in Morley.Michelson.Typed.Haskell.Doc

type TypeDocFieldDescriptions MText = '[] :: [(Symbol, (Maybe Symbol, [(Symbol, Symbol)]))]

type ToT MText

Defined in Morley.Michelson.Typed.Haskell.Value

type ToT MText = 'TString

type Element MText

Defined in Morley.Michelson.Text

type Element MText = Element Text

mkMText :: Text -> Either Text MText

Wrap a Haskell text into MText, performing necessary checks.

You can use e.g. 'n' character directly in supplied argument, but attempt to use other bad characters like 'r' will cause failure.

mkMTextCut :: Text -> MText

Construct MText from a Haskell text, eliminating all characters which should not appear in Michelson strings. Characters which can be displayed normally via escaping are preserved.

writeMText :: MText -> Text

Print MText for Michelson code, with all unusual characters escaped.

takeMText :: Int -> MText -> MText

dropMText :: Int -> MText -> MText

isMChar :: Char -> Bool

Constraint on literals appearing in Michelson contract code.

minBoundMChar :: Int

maxBoundMChar :: Int

Misc

qqMText :: String -> Either Text String

Parser used in mt quasi quoter.

mt :: QuasiQuoter

QuasyQuoter for constructing Michelson strings.

Validity of result will be checked at compile time. Note:

• slash must be escaped
• newline character must appear as 'n'
• use quotes as is
• other special characters are not allowed.

type DoNotUseTextError = DelayError ('Text "`Text` is not isomorphic to Michelson strings," :$$: 'Text "consider using `MText` type instead")

A type error asking to use MText instead of Text.

symbolToMText :: forall name. KnownSymbol name => MText

Create a MText from type-level string.

We assume that no unicode characters are used in plain Haskell code, so unless special tricky manipulations are used this should be safe.

labelToMText :: Label name -> MText

Create a MText from label.

We assume that no unicode characters are used in plain Haskell code, so unless special tricky manipulations are used this should be safe.

mtextHeadToUpper :: HasCallStack => MText -> MText

Leads first character of text to upper case.

For empty text this will throw an error.