[Haskell-cafe] How to check object's identity?