+ createRRD s
+
+testDSList = let a = ComputedDataSource {
+ cdsName = [$hString|foo|]
+ , cdsExpr = Var [$hString|bar|]
+ }
+ b = ComputedDataSource {
+ cdsName = [$hString|bar|]
+ , cdsExpr = Var [$hString|foo|] -- shouldn't typecheck!
+ }
+ c = ComputedDataSource {
+ cdsName = [$hString|baz|]
+ , cdsExpr = Var [$hString|foo|] -- should typecheck!
+ }
+ in a .&. b .&. Nil
\ No newline at end of file