type Rep TombstonePayload
Instance details Defined in Test.Hindsight.Store.Common type Rep TombstonePayload = D1 ('MetaData "TombstonePayload" "Test.Hindsight.Store.Common" "hindsight-core-0.1.0.0-inplace-store-testing" 'False) (C1 ('MetaCons "TombstonePayload" 'PrefixI 'True) (S1 ('MetaSel ('Just "marker") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text)))

Methods

from :: TombstonePayload -> Rep TombstonePayload x #

to :: Rep TombstonePayload x -> TombstonePayload #

Show TombstonePayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

showsPrec :: Int -> TombstonePayload -> ShowS #

show :: TombstonePayload -> String #

showList :: [TombstonePayload] -> ShowS #

Eq TombstonePayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

(==) :: TombstonePayload -> TombstonePayload -> Bool #

(/=) :: TombstonePayload -> TombstonePayload -> Bool #

type Rep TombstonePayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

type Rep TombstonePayload = D1 ('MetaData "TombstonePayload" "Test.Hindsight.Store.Common" "hindsight-core-0.1.0.0-inplace-store-testing" 'False) (C1 ('MetaCons "TombstonePayload" 'PrefixI 'True) (S1 ('MetaSel ('Just "marker") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Text)))

makeUserEvent :: Int -> SomeLatestEvent Source #

Helper to create a test user event

makeTombstone :: SomeLatestEvent Source #

Helper to create a tombstone event

type CounterInc = "counter_inc" Source #

Counter increment event for testing subscription stop behavior

data CounterIncPayload Source #

Constructors

CounterIncPayload

Instances

Instances details

Arbitrary CounterIncPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

arbitrary :: Gen CounterIncPayload #

shrink :: CounterIncPayload -> [CounterIncPayload] #

FromJSON CounterIncPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

parseJSON :: Value -> Parser CounterIncPayload #

parseJSONList :: Value -> Parser [CounterIncPayload] #

omittedField :: Maybe CounterIncPayload #

ToJSON CounterIncPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

toJSON :: CounterIncPayload -> Value #

toEncoding :: CounterIncPayload -> Encoding #

toJSONList :: [CounterIncPayload] -> Value #

toEncodingList :: [CounterIncPayload] -> Encoding #

omitField :: CounterIncPayload -> Bool #

Generic CounterIncPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Associated Types

type Rep CounterIncPayload
Instance details Defined in Test.Hindsight.Store.Common type Rep CounterIncPayload = D1 ('MetaData "CounterIncPayload" "Test.Hindsight.Store.Common" "hindsight-core-0.1.0.0-inplace-store-testing" 'False) (C1 ('MetaCons "CounterIncPayload" 'PrefixI 'False) (U1 :: Type -> Type))

Methods

from :: CounterIncPayload -> Rep CounterIncPayload x #

to :: Rep CounterIncPayload x -> CounterIncPayload #

Show CounterIncPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

showsPrec :: Int -> CounterIncPayload -> ShowS #

show :: CounterIncPayload -> String #

showList :: [CounterIncPayload] -> ShowS #

Eq CounterIncPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

(==) :: CounterIncPayload -> CounterIncPayload -> Bool #

(/=) :: CounterIncPayload -> CounterIncPayload -> Bool #

type Rep CounterIncPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

type Rep CounterIncPayload = D1 ('MetaData "CounterIncPayload" "Test.Hindsight.Store.Common" "hindsight-core-0.1.0.0-inplace-store-testing" 'False) (C1 ('MetaCons "CounterIncPayload" 'PrefixI 'False) (U1 :: Type -> Type))

type CounterStop = "counter_stop" Source #

Counter stop event for testing subscription stop behavior

data CounterStopPayload Source #

Constructors

CounterStopPayload

Instances

Instances details

Arbitrary CounterStopPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

arbitrary :: Gen CounterStopPayload #

shrink :: CounterStopPayload -> [CounterStopPayload] #

FromJSON CounterStopPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

parseJSON :: Value -> Parser CounterStopPayload #

parseJSONList :: Value -> Parser [CounterStopPayload] #

omittedField :: Maybe CounterStopPayload #

ToJSON CounterStopPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

toJSON :: CounterStopPayload -> Value #

toEncoding :: CounterStopPayload -> Encoding #

toJSONList :: [CounterStopPayload] -> Value #

toEncodingList :: [CounterStopPayload] -> Encoding #

omitField :: CounterStopPayload -> Bool #

Generic CounterStopPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Associated Types

type Rep CounterStopPayload
Instance details Defined in Test.Hindsight.Store.Common type Rep CounterStopPayload = D1 ('MetaData "CounterStopPayload" "Test.Hindsight.Store.Common" "hindsight-core-0.1.0.0-inplace-store-testing" 'False) (C1 ('MetaCons "CounterStopPayload" 'PrefixI 'False) (U1 :: Type -> Type))

Methods

from :: CounterStopPayload -> Rep CounterStopPayload x #

to :: Rep CounterStopPayload x -> CounterStopPayload #

Show CounterStopPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

showsPrec :: Int -> CounterStopPayload -> ShowS #

show :: CounterStopPayload -> String #

showList :: [CounterStopPayload] -> ShowS #

Eq CounterStopPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

(==) :: CounterStopPayload -> CounterStopPayload -> Bool #

(/=) :: CounterStopPayload -> CounterStopPayload -> Bool #

type Rep CounterStopPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

type Rep CounterStopPayload = D1 ('MetaData "CounterStopPayload" "Test.Hindsight.Store.Common" "hindsight-core-0.1.0.0-inplace-store-testing" 'False) (C1 ('MetaCons "CounterStopPayload" 'PrefixI 'False) (U1 :: Type -> Type))

makeCounterInc :: SomeLatestEvent Source #

Helper to create a counter increment event

makeCounterStop :: SomeLatestEvent Source #

Helper to create a counter stop event

type CounterFail = "counter_fail" Source #

Counter fail event for testing exception handling

data CounterFailPayload Source #

Constructors

CounterFailPayload

Instances

Instances details

Arbitrary CounterFailPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

arbitrary :: Gen CounterFailPayload #

shrink :: CounterFailPayload -> [CounterFailPayload] #

FromJSON CounterFailPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

parseJSON :: Value -> Parser CounterFailPayload #

parseJSONList :: Value -> Parser [CounterFailPayload] #

omittedField :: Maybe CounterFailPayload #

ToJSON CounterFailPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

toJSON :: CounterFailPayload -> Value #

toEncoding :: CounterFailPayload -> Encoding #

toJSONList :: [CounterFailPayload] -> Value #

toEncodingList :: [CounterFailPayload] -> Encoding #

omitField :: CounterFailPayload -> Bool #

Generic CounterFailPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Associated Types

type Rep CounterFailPayload
Instance details Defined in Test.Hindsight.Store.Common type Rep CounterFailPayload = D1 ('MetaData "CounterFailPayload" "Test.Hindsight.Store.Common" "hindsight-core-0.1.0.0-inplace-store-testing" 'False) (C1 ('MetaCons "CounterFailPayload" 'PrefixI 'False) (U1 :: Type -> Type))

Methods

from :: CounterFailPayload -> Rep CounterFailPayload x #

to :: Rep CounterFailPayload x -> CounterFailPayload #

Show CounterFailPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

showsPrec :: Int -> CounterFailPayload -> ShowS #

show :: CounterFailPayload -> String #

showList :: [CounterFailPayload] -> ShowS #

Eq CounterFailPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

Methods

(==) :: CounterFailPayload -> CounterFailPayload -> Bool #

(/=) :: CounterFailPayload -> CounterFailPayload -> Bool #

type Rep CounterFailPayload Source #

Instance details

Defined in Test.Hindsight.Store.Common

type Rep CounterFailPayload = D1 ('MetaData "CounterFailPayload" "Test.Hindsight.Store.Common" "hindsight-core-0.1.0.0-inplace-store-testing" 'False) (C1 ('MetaCons "CounterFailPayload" 'PrefixI 'False) (U1 :: Type -> Type))

makeCounterFail :: SomeLatestEvent Source #

Helper to create a counter fail event

Orphan instances

Event CounterFail Source #
Instance details
Event CounterInc Source #
Instance details
Event CounterStop Source #
Instance details
Event Tombstone Source #
Instance details
MigrateVersion 0 CounterFail Source #
Instance details Methods migrateVersion :: PayloadAtVersion (ToPeanoNat 0) (EventVersionVector CounterFail) -> CurrentPayloadType CounterFail #
MigrateVersion 0 CounterInc Source #
Instance details Methods migrateVersion :: PayloadAtVersion (ToPeanoNat 0) (EventVersionVector CounterInc) -> CurrentPayloadType CounterInc #
MigrateVersion 0 CounterStop Source #
Instance details Methods migrateVersion :: PayloadAtVersion (ToPeanoNat 0) (EventVersionVector CounterStop) -> CurrentPayloadType CounterStop #
MigrateVersion 0 Tombstone Source #	No upgrade needed for single version (uses default identity)
Instance details Methods migrateVersion :: PayloadAtVersion (ToPeanoNat 0) (EventVersionVector Tombstone) -> CurrentPayloadType Tombstone #