Documentation

withTestMetadata :: (MetadataBeamConnection -> IO a) -> IO a #

migrateDb :: (MonadFail m, MonadIO m) => MetadataBeamConnection -> m () #

migrateUp :: (MonadFail m, MetadataDbBackend be, DefaultMigrationBackend be m) => MetadataBeamConnectionContext be hdl m -> m (Maybe (CheckedDatabaseSettings be MetadataDb)) #

newSpecRunId :: MonadIO m => m SpecRunId #

createSpecRunEntry :: (MonadIO m, MonadMetadataDb metaBk m) => UTCTime -> AppName -> Pipeline -> SpecRunId -> SpecTableName -> DepChain -> m SpecRunEntryId #

createGetSpecRunEntry :: (MonadIO m, MonadMetadataDb metaBk m) => UTCTime -> AppName -> Pipeline -> SpecRunId -> SpecTableName -> DepChain -> m SpecRunEntryId #

recordRunFailure :: MonadMetadataDb be m => UTCTime -> SpecRunEntryId -> SomeException -> m () #

recordRunSuccess :: forall {k} (b :: k) metaBk m. (MonadMetadataDb metaBk m, ToJSON (BackendQueryStats b), Typeable b, ToDbBackend b) => UTCTime -> SpecRunEntryId -> Maybe (CreateQueryStats b) -> Maybe (HookQueryStats b) -> m () #

recordHookSuccess :: forall {k} (b :: k) metaBk m. (MonadMetadataDb metaBk m, ToJSON (BackendQueryStats b), Typeable b, ToDbBackend b) => UTCTime -> SpecRunEntryId -> HookQueryStats b -> m () #

recordHookError :: forall {k} (b :: k) metaBk m. (MonadMetadataDb metaBk m, ToJSON (BackendQueryStats b), Typeable b, ToDbBackend b) => UTCTime -> SpecRunEntryId -> HookQueryStats b -> NonEmpty AssertionEntry -> m () #

getSpecRunEntry :: MonadMetadataDb be m => SpecRunEntryId -> m (Maybe SpecRun) #

getSpecRunsInfo :: MonadMetadataDb be m => AppName -> Integer -> UTCTime -> m [(SpecRunId, UTCTime, Int64)] #

getLatestSpecRun :: MonadMetadataDb be m => AppName -> m (Maybe SpecRunId) #

getSpecRun :: MonadMetadataDb be m => SpecRunId -> m [SpecRun] #

loadSpecState :: MonadMetadataDb be m => AppName -> m [SpecRun] #

loadLastSuccessfulSpecState :: MonadMetadataDb be m => AppName -> m [SpecRun] #

loadSpecStateQuery :: MetadataDbBackend be => AppName -> Q be MetadataDb s (SpecRunT (QExpr be s)) #

loadLastSuccessfulSpecStateQuery :: MetadataDbBackend be => AppName -> Q be MetadataDb s (SpecRunT (QExpr be s)) #

getAverageRuntimeForTables :: MonadMetadataDb be m => [SpecTableName] -> m (Map SpecTableName NominalDiffTime) #

specRunsTable :: MetadataDbBackend be => DatabaseEntity be MetadataDb (TableEntity SpecRunT) #