X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Database%2FRRDtool%2FCreate.hs;h=5438e044d02b5a746256ed95fe3686a75b29028c;hb=d07e35733d4f0994a12202164c9065aef1fe98f4;hp=a3b51e54171d74e14d1ad822ece4fd8281a0c870;hpb=58a14778ab5fc1fe86403595bd5a499f17292a3c;p=hs-rrdtool.git

diff --git a/Database/RRDtool/Create.hs b/Database/RRDtool/Create.hs
index a3b51e5..5438e04 100644
--- a/Database/RRDtool/Create.hs
+++ b/Database/RRDtool/Create.hs
@@ -28,6 +28,7 @@ import Data.HList
 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
@@ -152,7 +153,8 @@ data ComputedDataSource e
     }
     deriving (Show, Eq, Ord)
 
-instance IsCommonExpr e => DataSource (ComputedDataSource e)
+instance (IsCommonExpr e ~ True) =>
+    DataSource (ComputedDataSource e)
 
 
 dsTest = ComputedDataSource {