(refs #7375) Fixed implementation of collectEffects

[simantics/platform.git] / bundles / org.simantics.scl.compiler / src / org / simantics / scl / compiler / elaboration / chr / relations / CHRConstraint.java

diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/chr/relations/CHRConstraint.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/chr/relations/CHRConstraint.java
index ee73477912e3d8ff385f83a29e33562eae8ce0a2..8b7c122a98458b1a8fa5fbac7e745ae36edb72cf 100644 (file)
--- a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/chr/relations/CHRConstraint.java
+++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/chr/relations/CHRConstraint.java
@@ -30,6 +30,7 @@ import org.simantics.scl.compiler.types.Type;
 import org.simantics.scl.compiler.types.Types;
 
 import gnu.trove.map.hash.TIntObjectHashMap;
 import org.simantics.scl.compiler.types.Types;
 
 import gnu.trove.map.hash.TIntObjectHashMap;

+import gnu.trove.set.hash.THashSet;

 
 public class CHRConstraint extends Symbol implements CHRRelation {
     public final String name;
 
 public class CHRConstraint extends Symbol implements CHRRelation {
     public final String name;


@@ -235,4 +236,14 @@ public class CHRConstraint extends Symbol implements CHRRelation {
     public String[] getFieldNames() {
         return fieldNames;
     }
     public String[] getFieldNames() {
         return fieldNames;
     }

+
+    @Override
+    public void collectEnforceEffects(THashSet<Type> effects) {
+        effects.add(Types.PROC);
+    }
+
+    @Override
+    public void collectQueryEffects(THashSet<Type> effects) {
+        effects.add(Types.PROC);
+    }

 }
 }