X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.scl.db%2Fscl%2FSimantics%2FDB.scl;h=ae092cfa8d62aafe6cd203d29e20e9a7f9885903;hp=74bc4220436dbe2d7a991012d9385a8eab08e136;hb=cb5fc8d606d8b322563e9345c441eecfa7f01753;hpb=86adc86522decdf79259743cde5ec3688af3d908 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)