plutus-pab-1.2.0.0
Safe HaskellNone
LanguageHaskell2010

Plutus.PAB.Monitoring.PABLogMsg

Description

PAB Log messages and instances

Synopsis

Documentation

data PABLogMsg t Source #

Instances

Instances details
Show (ContractDef t) => Show (PABLogMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Generic (PABLogMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Associated Types

type Rep (PABLogMsg t) :: Type -> Type Source #

Methods

from :: PABLogMsg t -> Rep (PABLogMsg t) x Source #

to :: Rep (PABLogMsg t) x -> PABLogMsg t Source #

FromJSON (ContractDef t) => FromJSON (PABLogMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

parseJSON :: Value -> Parser (PABLogMsg t)

parseJSONList :: Value -> Parser [PABLogMsg t]

Pretty (ContractDef t) => Pretty (PABLogMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

pretty :: PABLogMsg t -> Doc ann

prettyList :: [PABLogMsg t] -> Doc ann

ToJSON (ContractDef t) => ToJSON (PABLogMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

toJSON :: PABLogMsg t -> Value

toEncoding :: PABLogMsg t -> Encoding

toJSONList :: [PABLogMsg t] -> Value

toEncodingList :: [PABLogMsg t] -> Encoding

(StructuredLog (ContractDef t), ToJSON (ContractDef t)) => ToObject (PABLogMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

toObject :: TracingVerbosity -> PABLogMsg t -> Object

textTransformer :: PABLogMsg t -> Object -> Text

type Rep (PABLogMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

data ChainIndexServerMsg Source #

Messages from the ChainIndex Server

Instances

Instances details
Show ChainIndexServerMsg Source # 
Instance details

Defined in Cardano.ChainIndex.Types

Generic ChainIndexServerMsg Source # 
Instance details

Defined in Cardano.ChainIndex.Types

Associated Types

type Rep ChainIndexServerMsg :: Type -> Type Source #

FromJSON ChainIndexServerMsg Source # 
Instance details

Defined in Cardano.ChainIndex.Types

Methods

parseJSON :: Value -> Parser ChainIndexServerMsg

parseJSONList :: Value -> Parser [ChainIndexServerMsg]

Pretty ChainIndexServerMsg Source # 
Instance details

Defined in Cardano.ChainIndex.Types

Methods

pretty :: ChainIndexServerMsg -> Doc ann

prettyList :: [ChainIndexServerMsg] -> Doc ann

ToJSON ChainIndexServerMsg Source # 
Instance details

Defined in Cardano.ChainIndex.Types

ToObject ChainIndexServerMsg Source # 
Instance details

Defined in Cardano.ChainIndex.Types

Methods

toObject :: TracingVerbosity -> ChainIndexServerMsg -> Object

textTransformer :: ChainIndexServerMsg -> Object -> Text

type Rep ChainIndexServerMsg Source # 
Instance details

Defined in Cardano.ChainIndex.Types

type Rep ChainIndexServerMsg = D1 ('MetaData "ChainIndexServerMsg" "Cardano.ChainIndex.Types" "plutus-pab-1.2.0.0-LtxAAjtTYeqGloVmBPlsYv" 'False) ((C1 ('MetaCons "StartingNodeClientThread" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "StartingChainIndex" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int))) :+: (C1 ('MetaCons "ReceivedBlocksTxns" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Int)) :+: C1 ('MetaCons "ChainEvent" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 ChainIndexLog))))

data WalletMsg Source #

Instances

Instances details
Show WalletMsg Source # 
Instance details

Defined in Cardano.Wallet.Mock.Types

Generic WalletMsg Source # 
Instance details

Defined in Cardano.Wallet.Mock.Types

Associated Types

type Rep WalletMsg :: Type -> Type Source #

FromJSON WalletMsg Source # 
Instance details

Defined in Cardano.Wallet.Mock.Types

Methods

parseJSON :: Value -> Parser WalletMsg

parseJSONList :: Value -> Parser [WalletMsg]

Pretty WalletMsg Source # 
Instance details

Defined in Cardano.Wallet.Mock.Types

Methods

pretty :: WalletMsg -> Doc ann

prettyList :: [WalletMsg] -> Doc ann

ToJSON WalletMsg Source # 
Instance details

Defined in Cardano.Wallet.Mock.Types

Methods

toJSON :: WalletMsg -> Value

toEncoding :: WalletMsg -> Encoding

toJSONList :: [WalletMsg] -> Value

toEncodingList :: [WalletMsg] -> Encoding

ToObject WalletMsg Source # 
Instance details

Defined in Cardano.Wallet.Mock.Types

Methods

toObject :: TracingVerbosity -> WalletMsg -> Object

textTransformer :: WalletMsg -> Object -> Text

type Rep WalletMsg Source # 
Instance details

Defined in Cardano.Wallet.Mock.Types

type Rep WalletMsg = D1 ('MetaData "WalletMsg" "Cardano.Wallet.Mock.Types" "plutus-pab-1.2.0.0-LtxAAjtTYeqGloVmBPlsYv" 'False) ((C1 ('MetaCons "StartingWallet" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Port)) :+: C1 ('MetaCons "ChainClientMsg" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text))) :+: (C1 ('MetaCons "Balancing" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 TxBalanceMsg)) :+: C1 ('MetaCons "RequestHandling" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 RequestHandlerLogMsg))))

data CNSEServerLogMsg #

Instances

Instances details
Show CNSEServerLogMsg 
Instance details

Defined in Cardano.Node.Socket.Emulator.Types

Generic CNSEServerLogMsg 
Instance details

Defined in Cardano.Node.Socket.Emulator.Types

Associated Types

type Rep CNSEServerLogMsg :: Type -> Type Source #

FromJSON CNSEServerLogMsg 
Instance details

Defined in Cardano.Node.Socket.Emulator.Types

Methods

parseJSON :: Value -> Parser CNSEServerLogMsg

parseJSONList :: Value -> Parser [CNSEServerLogMsg]

Pretty CNSEServerLogMsg 
Instance details

Defined in Cardano.Node.Socket.Emulator.Types

Methods

pretty :: CNSEServerLogMsg -> Doc ann

prettyList :: [CNSEServerLogMsg] -> Doc ann

ToJSON CNSEServerLogMsg 
Instance details

Defined in Cardano.Node.Socket.Emulator.Types

type Rep CNSEServerLogMsg 
Instance details

Defined in Cardano.Node.Socket.Emulator.Types

type Rep CNSEServerLogMsg = D1 ('MetaData "CNSEServerLogMsg" "Cardano.Node.Socket.Emulator.Types" "cardano-node-socket-emulator-1.2.0.0-EdqiJYpns1WHGNvporLa4Z" 'False) (C1 ('MetaCons "StartingSlotCoordination" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 UTCTime) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Millisecond)) :+: (C1 ('MetaCons "StartingCNSEServer" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedUnpack) (Rec0 Int)) :+: C1 ('MetaCons "ProcessingEmulatorMsg" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 EmulatorMsg))))

data AppMsg t Source #

Instances

Instances details
Show (ContractDef t) => Show (AppMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Generic (AppMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Associated Types

type Rep (AppMsg t) :: Type -> Type Source #

Methods

from :: AppMsg t -> Rep (AppMsg t) x Source #

to :: Rep (AppMsg t) x -> AppMsg t Source #

FromJSON (ContractDef t) => FromJSON (AppMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

parseJSON :: Value -> Parser (AppMsg t)

parseJSONList :: Value -> Parser [AppMsg t]

Pretty (ContractDef t) => Pretty (AppMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

pretty :: AppMsg t -> Doc ann

prettyList :: [AppMsg t] -> Doc ann

ToJSON (ContractDef t) => ToJSON (AppMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

toJSON :: AppMsg t -> Value

toEncoding :: AppMsg t -> Encoding

toJSONList :: [AppMsg t] -> Value

toEncodingList :: [AppMsg t] -> Encoding

(ToJSON (ContractDef t), StructuredLog (ContractDef t)) => ToObject (AppMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

toObject :: TracingVerbosity -> AppMsg t -> Object

textTransformer :: AppMsg t -> Object -> Text

type Rep (AppMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

type Rep (AppMsg t) = D1 ('MetaData "AppMsg" "Plutus.PAB.Monitoring.PABLogMsg" "plutus-pab-1.2.0.0-LtxAAjtTYeqGloVmBPlsYv" 'False) ((C1 ('MetaCons "ActiveContractsMsg" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ContractHistoryMsg" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "PABMsg" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (PABLogMsg t))))) :+: (C1 ('MetaCons "AvailableContract" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :+: (C1 ('MetaCons "ContractInstances" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (ContractDef t)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [ContractInstanceId])) :+: C1 ('MetaCons "ContractHistoryItem" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ContractInstanceId) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Response PABResp))))))

data CoreMsg t Source #

Constructors

FindingContract ContractInstanceId 
FoundContract (Maybe (ContractResponse Value Value PABResp PABReq)) 
ConnectingToAlonzoNode PABServerConfig SlotNo 

Instances

Instances details
Show (ContractDef t) => Show (CoreMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Generic (CoreMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Associated Types

type Rep (CoreMsg t) :: Type -> Type Source #

Methods

from :: CoreMsg t -> Rep (CoreMsg t) x Source #

to :: Rep (CoreMsg t) x -> CoreMsg t Source #

FromJSON (ContractDef t) => FromJSON (CoreMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

parseJSON :: Value -> Parser (CoreMsg t)

parseJSONList :: Value -> Parser [CoreMsg t]

Pretty (ContractDef t) => Pretty (CoreMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

pretty :: CoreMsg t -> Doc ann

prettyList :: [CoreMsg t] -> Doc ann

ToJSON (ContractDef t) => ToJSON (CoreMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

toJSON :: CoreMsg t -> Value

toEncoding :: CoreMsg t -> Encoding

toJSONList :: [CoreMsg t] -> Value

toEncodingList :: [CoreMsg t] -> Encoding

(StructuredLog (ContractDef t), ToJSON (ContractDef t)) => ToObject (CoreMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

toObject :: TracingVerbosity -> CoreMsg t -> Object

textTransformer :: CoreMsg t -> Object -> Text

type Rep (CoreMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

type Rep (CoreMsg t) = D1 ('MetaData "CoreMsg" "Plutus.PAB.Monitoring.PABLogMsg" "plutus-pab-1.2.0.0-LtxAAjtTYeqGloVmBPlsYv" 'False) (C1 ('MetaCons "FindingContract" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ContractInstanceId)) :+: (C1 ('MetaCons "FoundContract" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe (ContractResponse Value Value PABResp PABReq)))) :+: C1 ('MetaCons "ConnectingToAlonzoNode" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 PABServerConfig) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 SlotNo))))

data PABMultiAgentMsg t Source #

FIXME: Redundant?

Instances

Instances details
Show (ContractDef t) => Show (PABMultiAgentMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Generic (PABMultiAgentMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Associated Types

type Rep (PABMultiAgentMsg t) :: Type -> Type Source #

FromJSON (ContractDef t) => FromJSON (PABMultiAgentMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

parseJSON :: Value -> Parser (PABMultiAgentMsg t)

parseJSONList :: Value -> Parser [PABMultiAgentMsg t]

Pretty (ContractDef t) => Pretty (PABMultiAgentMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

pretty :: PABMultiAgentMsg t -> Doc ann

prettyList :: [PABMultiAgentMsg t] -> Doc ann

ToJSON (ContractDef t) => ToJSON (PABMultiAgentMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

toJSON :: PABMultiAgentMsg t -> Value

toEncoding :: PABMultiAgentMsg t -> Encoding

toJSONList :: [PABMultiAgentMsg t] -> Value

toEncodingList :: [PABMultiAgentMsg t] -> Encoding

(StructuredLog (ContractDef t), ToJSON (ContractDef t)) => ToObject (PABMultiAgentMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

toObject :: TracingVerbosity -> PABMultiAgentMsg t -> Object

textTransformer :: PABMultiAgentMsg t -> Object -> Text

type Rep (PABMultiAgentMsg t) Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

type Rep (PABMultiAgentMsg t) = D1 ('MetaData "PABMultiAgentMsg" "Plutus.PAB.Monitoring.PABLogMsg" "plutus-pab-1.2.0.0-LtxAAjtTYeqGloVmBPlsYv" 'False) (((C1 ('MetaCons "EmulatorMsg" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 EmulatorEvent)) :+: C1 ('MetaCons "ContractInstanceLog" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (ContractInstanceMsg t)))) :+: (C1 ('MetaCons "UserLog" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :+: C1 ('MetaCons "BeamLogItem" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 BeamLog)))) :+: ((C1 ('MetaCons "PABStateRestored" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)) :+: C1 ('MetaCons "RestoringPABState" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "StartingPABBackendServer" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)) :+: (C1 ('MetaCons "WalletBalancingMsg" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Wallet) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 TxBalanceMsg)) :+: C1 ('MetaCons "WalletClient" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 WalletClientMsg))))))

newtype RequestSize Source #

Constructors

RequestSize Int 

Instances

Instances details
Show RequestSize Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

FromJSON RequestSize Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

parseJSON :: Value -> Parser RequestSize

parseJSONList :: Value -> Parser [RequestSize]

Pretty RequestSize Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

pretty :: RequestSize -> Doc ann

prettyList :: [RequestSize] -> Doc ann

ToJSON RequestSize Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

toJSON :: RequestSize -> Value

toEncoding :: RequestSize -> Encoding

toJSONList :: [RequestSize] -> Value

toEncodingList :: [RequestSize] -> Encoding

data WalletClientMsg Source #

Instances

Instances details
Eq WalletClientMsg Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Show WalletClientMsg Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Generic WalletClientMsg Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Associated Types

type Rep WalletClientMsg :: Type -> Type Source #

FromJSON WalletClientMsg Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

parseJSON :: Value -> Parser WalletClientMsg

parseJSONList :: Value -> Parser [WalletClientMsg]

Pretty WalletClientMsg Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

pretty :: WalletClientMsg -> Doc ann

prettyList :: [WalletClientMsg] -> Doc ann

ToJSON WalletClientMsg Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

toJSON :: WalletClientMsg -> Value

toEncoding :: WalletClientMsg -> Encoding

toJSONList :: [WalletClientMsg] -> Value

toEncodingList :: [WalletClientMsg] -> Encoding

ToObject WalletClientMsg Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

Methods

toObject :: TracingVerbosity -> WalletClientMsg -> Object

textTransformer :: WalletClientMsg -> Object -> Text

type Rep WalletClientMsg Source # 
Instance details

Defined in Plutus.PAB.Monitoring.PABLogMsg

type Rep WalletClientMsg = D1 ('MetaData "WalletClientMsg" "Plutus.PAB.Monitoring.PABLogMsg" "plutus-pab-1.2.0.0-LtxAAjtTYeqGloVmBPlsYv" 'False) (C1 ('MetaCons "WalletClientError" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)) :+: C1 ('MetaCons "BalanceTxError" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String)))