tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/SkipEqAndHashable.scl

   1 import "Prelude"
   2
   3 data Foo = Foo Integer
   4
   5 deriving instance Eq Foo
   6 deriving instance Hashable Foo
   7
   8 data Bar = Bar
   9
  10 instance Eq Bar where
  11     _ == _ = True
  12 instance Hashable Bar where
  13     hash _ = 123
  14
  15 main = ()
  16 --
  17 ()