Copyright	(C) 2014 Samuli Thomasson
License	MIT (see the file LICENSE)
Maintainer	Samuli Thomasson <samuli.thomasson@paivola.fi>
Stability	experimental
Portability	non-portable
Safe Haskell	None
Language	Haskell2010

Models

Description

Models in our db, and possibly in the zabbix db. Also provides migrateAll that migrates an empty or partial db schema to ours.

__Note that we do not provide any indices, that are crucial for multi-axis-graphs dashboard performance.__ Refer to that documentation no how to set them up.

Documentation

data Group

Constructors

Group
Fields groupName :: !Text

Instances

PersistField Group
PersistEntity Group
PersistFieldSql Group
Eq (Key Group)
Ord (Key Group)
Read (Key Group)
Show (Key Group)
ToJSON (Key Group)
FromJSON (Key Group)
PersistField (Key Group)
IsSqlKey (Key Group)
PersistFieldSql (Key Group)
PathPiece (Key Group)
type PersistEntityBackend Group = SqlBackend
data Key Group = GroupKey { unGroupKey :: BackendKey SqlBackend }
data EntityField Group where GroupId :: (~) * typ (Key Group) => EntityField Group typ GroupName :: (~) * typ Text => EntityField Group typ
data Unique Group

type GroupId = Key Group

data Host

Constructors

Host
Fields hostHost :: !Text hostStatus :: !Int hostAvailable :: !Int hostName :: !Text

Instances

Show Host
PersistField Host
PersistEntity Host
PersistFieldSql Host
Eq (Key Host)
Ord (Key Host)
Read (Key Host)
Show (Key Host)
ToJSON (Key Host)
FromJSON (Key Host)
PersistField (Key Host)
IsSqlKey (Key Host)
PersistFieldSql (Key Host)
PathPiece (Key Host)
type PersistEntityBackend Host = SqlBackend
data Key Host = HostKey { unHostKey :: BackendKey SqlBackend }
data EntityField Host where HostId :: (~) * typ (Key Host) => EntityField Host typ HostHost :: (~) * typ Text => EntityField Host typ HostStatus :: (~) * typ Int => EntityField Host typ HostAvailable :: (~) * typ Int => EntityField Host typ HostName :: (~) * typ Text => EntityField Host typ
data Unique Host

type HostId = Key Host

data HostGroup

Constructors

HostGroup
Fields hostGroupHost :: !(Key Host) hostGroupGroup :: !(Key Group)

Instances

Show HostGroup
PersistField HostGroup
PersistEntity HostGroup
PersistFieldSql HostGroup
Eq (Key HostGroup)
Ord (Key HostGroup)
Read (Key HostGroup)
Show (Key HostGroup)
ToJSON (Key HostGroup)
FromJSON (Key HostGroup)
PersistField (Key HostGroup)
IsSqlKey (Key HostGroup)
PersistFieldSql (Key HostGroup)
PathPiece (Key HostGroup)
type PersistEntityBackend HostGroup = SqlBackend
data Key HostGroup = HostGroupKey { unHostGroupKey :: BackendKey SqlBackend }
data EntityField HostGroup where HostGroupId :: (~) * typ (Key HostGroup) => EntityField HostGroup typ HostGroupHost :: (~) * typ (Key Host) => EntityField HostGroup typ HostGroupGroup :: (~) * typ (Key Group) => EntityField HostGroup typ
data Unique HostGroup

type HostGroupId = Key HostGroup

data Application

Constructors

Application
Fields applicationHost :: !(Key Host) applicationName :: !Text

Instances

Show Application
PersistField Application
PersistEntity Application
PersistFieldSql Application
Eq (Key Application)
Ord (Key Application)
Read (Key Application)
Show (Key Application)
ToJSON (Key Application)
FromJSON (Key Application)
PersistField (Key Application)
IsSqlKey (Key Application)
PersistFieldSql (Key Application)
PathPiece (Key Application)
type PersistEntityBackend Application = SqlBackend
data Key Application = ApplicationKey { unApplicationKey :: BackendKey SqlBackend }
data EntityField Application where ApplicationId :: (~) * typ (Key Application) => EntityField Application typ ApplicationHost :: (~) * typ (Key Host) => EntityField Application typ ApplicationName :: (~) * typ Text => EntityField Application typ
data Unique Application

type ApplicationId = Key Application

data Item

Constructors

Item
Fields itemType :: !Int itemHost :: !(Key Host) itemName :: !Text itemKey_ :: !Text itemDescription :: !Text itemValueType :: !Int

Instances

Show Item
PersistField Item
PersistEntity Item
PersistFieldSql Item
Eq (Key Item)
Ord (Key Item)
Read (Key Item)
Show (Key Item)
ToJSON (Key Item)
FromJSON (Key Item)
PersistField (Key Item)
IsSqlKey (Key Item)
PersistFieldSql (Key Item)
PathPiece (Key Item)
type PersistEntityBackend Item = SqlBackend
data Key Item = ItemKey { unItemKey :: BackendKey SqlBackend }
data EntityField Item where ItemId :: (~) * typ (Key Item) => EntityField Item typ ItemType :: (~) * typ Int => EntityField Item typ ItemHost :: (~) * typ (Key Host) => EntityField Item typ ItemName :: (~) * typ Text => EntityField Item typ ItemKey_ :: (~) * typ Text => EntityField Item typ ItemDescription :: (~) * typ Text => EntityField Item typ ItemValueType :: (~) * typ Int => EntityField Item typ
data Unique Item = UniqItem (Key Host) Text

type ItemId = Key Item

data ItemApp

Constructors

ItemApp
Fields itemAppApp :: !(Key Application) itemAppItem :: !(Key Item)

Instances

Show ItemApp
PersistField ItemApp
PersistEntity ItemApp
PersistFieldSql ItemApp
Eq (Key ItemApp)
Ord (Key ItemApp)
Read (Key ItemApp)
Show (Key ItemApp)
ToJSON (Key ItemApp)
FromJSON (Key ItemApp)
PersistField (Key ItemApp)
IsSqlKey (Key ItemApp)
PersistFieldSql (Key ItemApp)
PathPiece (Key ItemApp)
type PersistEntityBackend ItemApp = SqlBackend
data Key ItemApp = ItemAppKey { unItemAppKey :: BackendKey SqlBackend }
data EntityField ItemApp where ItemAppId :: (~) * typ (Key ItemApp) => EntityField ItemApp typ ItemAppApp :: (~) * typ (Key Application) => EntityField ItemApp typ ItemAppItem :: (~) * typ (Key Item) => EntityField ItemApp typ
data Unique ItemApp

type ItemAppId = Key ItemApp

data History

Constructors

History
Fields historyItem :: !(Key Item) historyClock :: !Int historyValue :: !Rational

Instances

Show History
PersistField History
PersistEntity History
PersistFieldSql History
Eq (Key History)
Ord (Key History)
Read (Key History)
Show (Key History)
ToJSON (Key History)
FromJSON (Key History)
PersistField (Key History)
IsSqlKey (Key History)
PersistFieldSql (Key History)
PathPiece (Key History)
type PersistEntityBackend History = SqlBackend
data Key History = HistoryKey { unHistoryKey :: BackendKey SqlBackend }
data EntityField History where HistoryId :: (~) * typ (Key History) => EntityField History typ HistoryItem :: (~) * typ (Key Item) => EntityField History typ HistoryClock :: (~) * typ Int => EntityField History typ HistoryValue :: (~) * typ Rational => EntityField History typ
data Unique History

type HistoryId = Key History

data Trend

Constructors

Trend
Fields trendItem :: !(Key Item) trendClock :: !Int trendValueMin :: !Rational trendValueAvg :: !Rational trendValueMax :: !Rational

Instances

PersistField Trend
PersistEntity Trend
PersistFieldSql Trend
Eq (Key Trend)
Ord (Key Trend)
Read (Key Trend)
Show (Key Trend)
ToJSON (Key Trend)
FromJSON (Key Trend)
PersistField (Key Trend)
IsSqlKey (Key Trend)
PersistFieldSql (Key Trend)
PathPiece (Key Trend)
type PersistEntityBackend Trend = SqlBackend
data Key Trend = TrendKey { unTrendKey :: BackendKey SqlBackend }
data EntityField Trend where TrendId :: (~) * typ (Key Trend) => EntityField Trend typ TrendItem :: (~) * typ (Key Item) => EntityField Trend typ TrendClock :: (~) * typ Int => EntityField Trend typ TrendValueMin :: (~) * typ Rational => EntityField Trend typ TrendValueAvg :: (~) * typ Rational => EntityField Trend typ TrendValueMax :: (~) * typ Rational => EntityField Trend typ
data Unique Trend

type TrendId = Key Trend

data FutureModel

Constructors

FutureModel
Fields futureModelName :: !Text

Instances

Show FutureModel
PersistField FutureModel
PersistEntity FutureModel
PersistFieldSql FutureModel
Eq (Key FutureModel)
Ord (Key FutureModel)
Read (Key FutureModel)
Show (Key FutureModel)
ToJSON (Key FutureModel)
FromJSON (Key FutureModel)
PersistField (Key FutureModel)
IsSqlKey (Key FutureModel)
PersistFieldSql (Key FutureModel)
PathPiece (Key FutureModel)
type PersistEntityBackend FutureModel = SqlBackend
data Key FutureModel = FutureModelKey { unFutureModelKey :: BackendKey SqlBackend }
data EntityField FutureModel where FutureModelId :: (~) * typ (Key FutureModel) => EntityField FutureModel typ FutureModelName :: (~) * typ Text => EntityField FutureModel typ
data Unique FutureModel = UniqueFutureModel Text

type FutureModelId = Key FutureModel

data ItemFuture

Constructors

ItemFuture
Fields itemFutureItem :: !(Key Item) itemFutureModel :: !(Key FutureModel) itemFutureParams :: !ByteString itemFutureDetails :: !ByteString itemFutureIsMaster :: !Bool

Instances

Show ItemFuture
PersistField ItemFuture
PersistEntity ItemFuture
PersistFieldSql ItemFuture
Eq (Key ItemFuture)
Ord (Key ItemFuture)
Read (Key ItemFuture)
Show (Key ItemFuture)
ToJSON (Key ItemFuture)
FromJSON (Key ItemFuture)
PersistField (Key ItemFuture)
IsSqlKey (Key ItemFuture)
PersistFieldSql (Key ItemFuture)
PathPiece (Key ItemFuture)
type PersistEntityBackend ItemFuture = SqlBackend
data Key ItemFuture = ItemFutureKey { unItemFutureKey :: BackendKey SqlBackend }
data EntityField ItemFuture where ItemFutureId :: (~) * typ (Key ItemFuture) => EntityField ItemFuture typ ItemFutureItem :: (~) * typ (Key Item) => EntityField ItemFuture typ ItemFutureModel :: (~) * typ (Key FutureModel) => EntityField ItemFuture typ ItemFutureParams :: (~) * typ ByteString => EntityField ItemFuture typ ItemFutureDetails :: (~) * typ ByteString => EntityField ItemFuture typ ItemFutureIsMaster :: (~) * typ Bool => EntityField ItemFuture typ
data Unique ItemFuture

type ItemFutureId = Key ItemFuture

data Future

Constructors

Future
Fields futureItem :: !(Key ItemFuture) futureClock :: !Int futureValue :: !Rational

Instances

Show Future
PersistField Future
PersistEntity Future
PersistFieldSql Future
Eq (Key Future)
Ord (Key Future)
Read (Key Future)
Show (Key Future)
ToJSON (Key Future)
FromJSON (Key Future)
PersistField (Key Future)
IsSqlKey (Key Future)
PersistFieldSql (Key Future)
PathPiece (Key Future)
type PersistEntityBackend Future = SqlBackend
data Key Future = FutureKey { unFutureKey :: BackendKey SqlBackend }
data EntityField Future where FutureId :: (~) * typ (Key Future) => EntityField Future typ FutureItem :: (~) * typ (Key ItemFuture) => EntityField Future typ FutureClock :: (~) * typ Int => EntityField Future typ FutureValue :: (~) * typ Rational => EntityField Future typ
data Unique Future

type FutureId = Key Future

data Threshold

Constructors

Threshold
Fields thresholdItem :: !(Key ItemFuture) thresholdLower :: !Bool thresholdHigh :: !Double thresholdWarning :: !Double thresholdCritical :: !Double

Instances

Show Threshold
PersistField Threshold
PersistEntity Threshold
PersistFieldSql Threshold
Eq (Key Threshold)
Ord (Key Threshold)
Read (Key Threshold)
Show (Key Threshold)
ToJSON (Key Threshold)
FromJSON (Key Threshold)
PersistField (Key Threshold)
IsSqlKey (Key Threshold)
PersistFieldSql (Key Threshold)
PathPiece (Key Threshold)
type PersistEntityBackend Threshold = SqlBackend
data Key Threshold = ThresholdKey { unThresholdKey :: BackendKey SqlBackend }
data EntityField Threshold where ThresholdId :: (~) * typ (Key Threshold) => EntityField Threshold typ ThresholdItem :: (~) * typ (Key ItemFuture) => EntityField Threshold typ ThresholdLower :: (~) * typ Bool => EntityField Threshold typ ThresholdHigh :: (~) * typ Double => EntityField Threshold typ ThresholdWarning :: (~) * typ Double => EntityField Threshold typ ThresholdCritical :: (~) * typ Double => EntityField Threshold typ
data Unique Threshold

type ThresholdId = Key Threshold

data Metric

Constructors

Metric
Fields metricName :: !Text metricKey_ :: !Text metricScale :: !Int

Instances

Show Metric
PersistField Metric
PersistEntity Metric
PersistFieldSql Metric
Eq (Key Metric)
Ord (Key Metric)
Read (Key Metric)
Show (Key Metric)
ToJSON (Key Metric)
FromJSON (Key Metric)
PersistField (Key Metric)
IsSqlKey (Key Metric)
PersistFieldSql (Key Metric)
PathPiece (Key Metric)
type PersistEntityBackend Metric = SqlBackend
data Key Metric = MetricKey { unMetricKey :: BackendKey SqlBackend }
data EntityField Metric where MetricId :: (~) * typ (Key Metric) => EntityField Metric typ MetricName :: (~) * typ Text => EntityField Metric typ MetricKey_ :: (~) * typ Text => EntityField Metric typ MetricScale :: (~) * typ Int => EntityField Metric typ
data Unique Metric = UniqueMetricName Text

type MetricId = Key Metric

migrateAll :: Migration