是否可以将两个gobjects与haskell-gi进行比较，并确定它们是否相同？

Question

随着Gtk2Hs我曾经是能够GTK对象比较==，以了解他们是否是相同的。例如：

boxIsFromState :: VBox -> State -> Bool 
boxIsFromState widget state = _widget state == widget 

凡State是自定义的数据类型的容器另一垂直框。

我注意到haskell-gi的部件不从Eq派生。那么是否有另一种方法来比较对象呢？

Answer 1

免责声明：虽然我是一个Haskell专家，我知之甚少哈斯克尔-GI明确。这就是说......

在文件来看，我们有：

newtype Widget = Widget (ManagedPtr Widget) 
data ManagedPtr a = ManagedPtr { 
    managedForeignPtr :: ForeignPtr a 
    , managedPtrIsOwned :: IORef Bool 
    } 

所有适当的构造出口，都ForeignPtr和IORef报价Eq实例。因此编写我们自己的Eq实例应该是微不足道的 - 编译器本身应该能够做到这一点。

{-# LANGUAGE StandaloneDeriving #-} 

deriving instance Eq (ManagedPtr a) 
deriving instance Eq Widget 

这是否有正确的语义是不是100％我清楚;它可能是你想忽略你的相等测试的目的，在这种情况下，你可能会想要写

instance Eq (ManagedPtr a) where 
    (==) ManagedPtr { managedForeignPtr = p } 
     ManagedPtr { managedForeignPtr = p' } 
     = p == p' 

或类似的，而不是所有权。