]> gerrit.simantics Code Review - simantics/platform.git/blobdiff - bundles/org.simantics.structural2/scl/Structural/Procedural.scl
Fixed all line endings of the repository
[simantics/platform.git] / bundles / org.simantics.structural2 / scl / Structural / Procedural.scl
index b4600dcb281baaebcc995c372cede8fde8eca54f..8fd2ef34c69278500012c29afd36353589924d6b 100644 (file)
@@ -1,31 +1,31 @@
-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