added missing type instances

[hs-rrdtool.git] / Database / RRDtool / Create.hs

diff --git a/Database/RRDtool/Create.hs b/Database/RRDtool/Create.hs
index 5438e044d02b5a746256ed95fe3686a75b29028c..a6a67fca729a31f3a5eefa750c0cc79fff45776f 100644 (file)
--- a/Database/RRDtool/Create.hs
+++ b/Database/RRDtool/Create.hs
@@ -1,3 +1,7 @@
+{-# LANGUAGE
+  TypeFamilies,
+  UndecidableInstances
+  #-}
 module Database.RRDtool.Create
     ( DataSource
     , ExternalDSType(..)
@@ -159,8 +163,8 @@ instance (IsCommonExpr e ~ True) =>
 
 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)
          }