-include "Simantics/DB"\r
-\r
-@JavaType "org.simantics.structural2.procedural.Property"\r
-data Property =\r
- @FieldNames [relation, value]\r
- Property Resource a\r
-\r
-instance Show Property where\r
- sb <+ Property relation value = sb << "(Property " <+ relation << ")"\r
-\r
-@JavaType "org.simantics.structural2.procedural.ConnectionPoint"\r
-data ConnectionPoint =\r
- @JavaType "org.simantics.structural2.procedural.Terminal"\r
- @FieldNames [component, relation]\r
- Terminal String Resource\r
- | @JavaType "org.simantics.structural2.procedural.Interface"\r
- @FieldNames [relation]\r
- Interface Resource\r
-\r
-deriving instance Show ConnectionPoint\r
-\r
-@JavaType "org.simantics.structural2.procedural.SubstructureElement"\r
-data SubstructureElement =\r
- @JavaType "org.simantics.structural2.procedural.Component"\r
- @FieldNames [name, "type", properties]\r
- Component String Resource [Property]\r
- | @JavaType "org.simantics.structural2.procedural.Connection"\r
- @FieldNames [connectionPoints] \r
- Connection [ConnectionPoint]\r
-\r
+include "Simantics/DB"
+
+@JavaType "org.simantics.structural2.procedural.Property"
+data Property =
+ @FieldNames [relation, value]
+ Property Resource a
+
+instance Show Property where
+ sb <+ Property relation value = sb << "(Property " <+ relation << ")"
+
+@JavaType "org.simantics.structural2.procedural.ConnectionPoint"
+data ConnectionPoint =
+ @JavaType "org.simantics.structural2.procedural.Terminal"
+ @FieldNames [component, relation]
+ Terminal String Resource
+ | @JavaType "org.simantics.structural2.procedural.Interface"
+ @FieldNames [relation]
+ Interface Resource
+
+deriving instance Show ConnectionPoint
+
+@JavaType "org.simantics.structural2.procedural.SubstructureElement"
+data SubstructureElement =
+ @JavaType "org.simantics.structural2.procedural.Component"
+ @FieldNames [name, "type", properties]
+ Component String Resource [Property]
+ | @JavaType "org.simantics.structural2.procedural.Connection"
+ @FieldNames [connectionPoints]
+ Connection [ConnectionPoint]
+
deriving instance Show SubstructureElement
\ No newline at end of file