+{-# LANGUAGE
+ TypeFamilies,
+ UndecidableInstances
+ #-}
module Database.RRDtool.Create
( DataSource
, ExternalDSType(..)
import Data.Time.Clock
import Data.Time.Clock.POSIX
import Database.RRDtool.Expression
+import Types.Data.Bool
-- |A single RRD can accept input from several data sources (DS), for
}
deriving (Show, Eq, Ord)
-instance IsCommonExpr e => DataSource (ComputedDataSource e)
+instance (IsCommonExpr e ~ True) =>
+ DataSource (ComputedDataSource e)
dsTest = ComputedDataSource {
cdsName = "foo"
--- , dsExpr = Previous :<: Const 100
--- , dsExpr = Var "foo" :<: Const 100
+-- , cdsExpr = Previous :<: Const 100
+-- , cdsExpr = Var "foo" :<: Const 100
, cdsExpr = AverageOf (Const 100 .*. Const 200 .*. HNil)
}