Safe Haskell	Safe-Inferred
Language	GHC2021

Napkin.Types.QueryStats

Synopsis

newtype CreateQueryStats bk = CreateQueryStats {
- queryStats :: QueryStats bk
}
newtype HookQueryStats bk = HookQueryStats {
- queryStats :: QueryStats bk
}
data QueryStats backend = QueryStats {
- rowsAffected :: !(Maybe Int64)
- time :: !(Maybe Int64)
- backend :: !(BackendQueryStats backend)
}
class (Show (BackendQueryStats backend), Eq (BackendQueryStats backend), Monoid (BackendQueryStats backend), ToJSON (BackendQueryStats backend), FromJSON (BackendQueryStats backend)) => HasBackendQueryStats backend where
- data BackendQueryStats backend :: Type
- prettyPrint :: BackendQueryStats backend -> Maybe String
prettyQueryStats :: HasBackendQueryStats backend => QueryStats backend -> String
type StatsM b = ReaderT (IORef (QueryStats b)) (KatipT IO)
runStatsWith :: forall b a m. (MonadIO m, HasBackendQueryStats b) => LogEnv -> StatsM b a -> m (a, QueryStats b)
runNoStats :: forall b a m. (MonadIO m, HasBackendQueryStats b) => LogEnv -> KatipT IO a -> m a

Documentation

newtype CreateQueryStats bk #

Constructors

CreateQueryStats
Fields queryStats :: QueryStats bk

Instances

Instances details

HasBackendQueryStats bk => Monoid (CreateQueryStats bk) #
Instance details Defined in Napkin.Types.QueryStats Methods mempty :: CreateQueryStats bk # mappend :: CreateQueryStats bk -> CreateQueryStats bk -> CreateQueryStats bk # mconcat :: [CreateQueryStats bk] -> CreateQueryStats bk #
HasBackendQueryStats bk => Semigroup (CreateQueryStats bk) #
Instance details Defined in Napkin.Types.QueryStats Methods (<>) :: CreateQueryStats bk -> CreateQueryStats bk -> CreateQueryStats bk # sconcat :: NonEmpty (CreateQueryStats bk) -> CreateQueryStats bk # stimes :: Integral b => b -> CreateQueryStats bk -> CreateQueryStats bk #
Generic (CreateQueryStats bk) #
Instance details Defined in Napkin.Types.QueryStats Associated Types type Rep (CreateQueryStats bk) :: Type -> Type # Methods from :: CreateQueryStats bk -> Rep (CreateQueryStats bk) x # to :: Rep (CreateQueryStats bk) x -> CreateQueryStats bk #
Show (QueryStats bk) => Show (CreateQueryStats bk) #
Instance details Defined in Napkin.Types.QueryStats Methods showsPrec :: Int -> CreateQueryStats bk -> ShowS # show :: CreateQueryStats bk -> String # showList :: [CreateQueryStats bk] -> ShowS #
Eq (QueryStats bk) => Eq (CreateQueryStats bk) #
Instance details Defined in Napkin.Types.QueryStats Methods (==) :: CreateQueryStats bk -> CreateQueryStats bk -> Bool # (/=) :: CreateQueryStats bk -> CreateQueryStats bk -> Bool #
type Rep (CreateQueryStats bk) #
Instance details Defined in Napkin.Types.QueryStats type Rep (CreateQueryStats bk) = D1 ('MetaData "CreateQueryStats" "Napkin.Types.QueryStats" "napkin-1.0.0-B79azc00rn1K8mj00hwhwG" 'True) (C1 ('MetaCons "CreateQueryStats" 'PrefixI 'True) (S1 ('MetaSel ('Just "queryStats") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (QueryStats bk))))

newtype HookQueryStats bk #

Constructors

HookQueryStats
Fields queryStats :: QueryStats bk

Instances

Instances details

HasBackendQueryStats bk => Monoid (HookQueryStats bk) #
Instance details Defined in Napkin.Types.QueryStats Methods mempty :: HookQueryStats bk # mappend :: HookQueryStats bk -> HookQueryStats bk -> HookQueryStats bk # mconcat :: [HookQueryStats bk] -> HookQueryStats bk #
HasBackendQueryStats bk => Semigroup (HookQueryStats bk) #
Instance details Defined in Napkin.Types.QueryStats Methods (<>) :: HookQueryStats bk -> HookQueryStats bk -> HookQueryStats bk # sconcat :: NonEmpty (HookQueryStats bk) -> HookQueryStats bk # stimes :: Integral b => b -> HookQueryStats bk -> HookQueryStats bk #
Generic (HookQueryStats bk) #
Instance details Defined in Napkin.Types.QueryStats Associated Types type Rep (HookQueryStats bk) :: Type -> Type # Methods from :: HookQueryStats bk -> Rep (HookQueryStats bk) x # to :: Rep (HookQueryStats bk) x -> HookQueryStats bk #
Show (QueryStats bk) => Show (HookQueryStats bk) #
Instance details Defined in Napkin.Types.QueryStats Methods showsPrec :: Int -> HookQueryStats bk -> ShowS # show :: HookQueryStats bk -> String # showList :: [HookQueryStats bk] -> ShowS #
Eq (QueryStats bk) => Eq (HookQueryStats bk) #
Instance details Defined in Napkin.Types.QueryStats Methods (==) :: HookQueryStats bk -> HookQueryStats bk -> Bool # (/=) :: HookQueryStats bk -> HookQueryStats bk -> Bool #
type Rep (HookQueryStats bk) #
Instance details Defined in Napkin.Types.QueryStats type Rep (HookQueryStats bk) = D1 ('MetaData "HookQueryStats" "Napkin.Types.QueryStats" "napkin-1.0.0-B79azc00rn1K8mj00hwhwG" 'True) (C1 ('MetaCons "HookQueryStats" 'PrefixI 'True) (S1 ('MetaSel ('Just "queryStats") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (QueryStats bk))))

data QueryStats backend #

Used for aggregate statistics gathered from running queries.

Constructors

QueryStats
Fields rowsAffected :: !(Maybe Int64) time :: !(Maybe Int64) milliseconds backend :: !(BackendQueryStats backend)

Instances

Instances details

HasBackendQueryStats backend => LocalQueryStats (backend :: k) (ReaderT (IORef (QueryStats backend)) (KatipT IO)) #
Instance details Defined in Napkin.Run.Base Methods tellStats :: QueryStats backend -> ReaderT (IORef (QueryStats backend)) (KatipT IO) () #
HasBackendQueryStats backend => Monoid (QueryStats backend) #
Instance details Defined in Napkin.Types.QueryStats Methods mempty :: QueryStats backend # mappend :: QueryStats backend -> QueryStats backend -> QueryStats backend # mconcat :: [QueryStats backend] -> QueryStats backend #
HasBackendQueryStats backend => Semigroup (QueryStats backend) #
Instance details Defined in Napkin.Types.QueryStats Methods (<>) :: QueryStats backend -> QueryStats backend -> QueryStats backend # sconcat :: NonEmpty (QueryStats backend) -> QueryStats backend # stimes :: Integral b => b -> QueryStats backend -> QueryStats backend #
Generic (QueryStats backend) #
Instance details Defined in Napkin.Types.QueryStats Associated Types type Rep (QueryStats backend) :: Type -> Type # Methods from :: QueryStats backend -> Rep (QueryStats backend) x # to :: Rep (QueryStats backend) x -> QueryStats backend #
Show (BackendQueryStats bk) => Show (QueryStats bk) #
Instance details Defined in Napkin.Types.QueryStats Methods showsPrec :: Int -> QueryStats bk -> ShowS # show :: QueryStats bk -> String # showList :: [QueryStats bk] -> ShowS #
Eq (BackendQueryStats bk) => Eq (QueryStats bk) #
Instance details Defined in Napkin.Types.QueryStats Methods (==) :: QueryStats bk -> QueryStats bk -> Bool # (/=) :: QueryStats bk -> QueryStats bk -> Bool #
type Rep (QueryStats backend) #
Instance details Defined in Napkin.Types.QueryStats type Rep (QueryStats backend) = D1 ('MetaData "QueryStats" "Napkin.Types.QueryStats" "napkin-1.0.0-B79azc00rn1K8mj00hwhwG" 'False) (C1 ('MetaCons "QueryStats" 'PrefixI 'True) (S1 ('MetaSel ('Just "rowsAffected") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe Int64)) :: (S1 ('MetaSel ('Just "time") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (Maybe Int64)) :: S1 ('MetaSel ('Just "backend") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 (BackendQueryStats backend)))))

class (Show (BackendQueryStats backend), Eq (BackendQueryStats backend), Monoid (BackendQueryStats backend), ToJSON (BackendQueryStats backend), FromJSON (BackendQueryStats backend)) => HasBackendQueryStats backend where #

Minimal complete definition

Nothing

Associated Types

data BackendQueryStats backend :: Type #

Methods

prettyPrint :: BackendQueryStats backend -> Maybe String #

Instances

Instances details

HasBackendQueryStats BigQuery #
Instance details Defined in Napkin.Run.BigQuery Associated Types data BackendQueryStats BigQuery # Methods prettyPrint :: BackendQueryStats BigQuery -> Maybe String #
HasBackendQueryStats MsSql #
Instance details Defined in Napkin.Run.MsSql Associated Types data BackendQueryStats MsSql # Methods prettyPrint :: BackendQueryStats MsSql -> Maybe String #
HasBackendQueryStats Postgres #
Instance details Defined in Napkin.Run.Postgres Associated Types data BackendQueryStats Postgres # Methods prettyPrint :: BackendQueryStats Postgres -> Maybe String #
HasBackendQueryStats Redshift #
Instance details Defined in Napkin.Run.Redshift Associated Types data BackendQueryStats Redshift # Methods prettyPrint :: BackendQueryStats Redshift -> Maybe String #
HasBackendQueryStats Sqlite #
Instance details Defined in Napkin.Run.Sqlite Associated Types data BackendQueryStats Sqlite # Methods prettyPrint :: BackendQueryStats Sqlite -> Maybe String #

prettyQueryStats :: HasBackendQueryStats backend => QueryStats backend -> String #

type StatsM b = ReaderT (IORef (QueryStats b)) (KatipT IO) #

runStatsWith :: forall b a m. (MonadIO m, HasBackendQueryStats b) => LogEnv -> StatsM b a -> m (a, QueryStats b) #

runNoStats :: forall b a m. (MonadIO m, HasBackendQueryStats b) => LogEnv -> KatipT IO a -> m a #