X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.db%2Fscl%2FSimantics%2FDB.scl;h=ae092cfa8d62aafe6cd203d29e20e9a7f9885903;hb=ca40974f87c9db00eb77aaf1acc1e9937b37261b;hp=74bc4220436dbe2d7a991012d9385a8eab08e136;hpb=f8576d4d2b3b30d76db552d624fc9f087b8940bd;p=simantics%2Fplatform.git diff --git a/bundles/org.simantics.scl.db/scl/Simantics/DB.scl b/bundles/org.simantics.scl.db/scl/Simantics/DB.scl index 74bc42204..ae092cfa8 100644 --- a/bundles/org.simantics.scl.db/scl/Simantics/DB.scl +++ b/bundles/org.simantics.scl.db/scl/Simantics/DB.scl @@ -22,21 +22,9 @@ importJava "org.simantics.db.Resource" where importJava "org.simantics.db.ReadGraph" where data ReadGraphX -importJava "java.lang.Object" where - @JavaName equals - resourceEquals :: Resource -> Resource -> Boolean - @JavaName hashCode - resourceHash :: Resource -> Integer - -instance Eq Resource where - (==) = resourceEquals - instance Ord Resource where compare a b = compare (resourceId a) (resourceId b) - -instance Hashable Resource where - hashP = hashP . resourceHash - + instance Show Resource where show r = "#" + show (resourceId r)