Derived Eq instance for TArray
authorBas van Dijk <v.dijk.bas@gmail.com>
Sat, 10 Apr 2010 13:37:07 +0000 (13:37 +0000)
committerBas van Dijk <v.dijk.bas@gmail.com>
Sat, 10 Apr 2010 13:37:07 +0000 (13:37 +0000)
Control/Concurrent/STM/TArray.hs

index bc1af39..c6551af 100644 (file)
@@ -39,7 +39,7 @@ import Control.Sequential.STM (STM)
 -- but it may be replaced by a more efficient implementation in the future
 -- (the interface will remain the same, however).
 --
-newtype TArray i e = TArray (Array i (TVar e)) deriving (Typeable)
+newtype TArray i e = TArray (Array i (TVar e)) deriving (Eq, Typeable)
 
 instance MArray TArray e STM where
     getBounds (TArray a) = return (bounds a)