Add Eq1 instances to exception types

src/Control/Abstract/Value.hs

@@ -1,4 +1,5 @@
-{-# LANGUAGE MultiParamTypeClasses, Rank2Types, TypeFamilies, TypeOperators, UndecidableInstances, GADTs, StandaloneDeriving #-}
+{-# LANGUAGE GADTs, MultiParamTypeClasses, Rank2Types, StandaloneDeriving, TypeFamilies, TypeOperators,
+             UndecidableInstances #-}
 module Control.Abstract.Value where
 
 import           Control.Abstract.Addressable
@@ -142,6 +143,11 @@ data ValueExc v where
   ValueExc :: Prelude.String -> ValueExc Value
   StringExc :: Prelude.String -> ValueExc ByteString
 
+instance Eq1 ValueExc where
+  liftEq _ (ValueExc a) (ValueExc b)   = a == b
+  liftEq _ (StringExc a) (StringExc b) = a == b
+  liftEq _ _ _                         = False
+
 deriving instance Show (ValueExc v)
 instance Show1 ValueExc where
   liftShowsPrec _ _ = showsPrec

src/Data/Abstract/Evaluatable.hs

@@ -24,6 +24,9 @@ import Prologue
 data Unspecialized a b where
   Unspecialized :: { getUnspecialized :: Prelude.String } -> Unspecialized value value
 
+instance Eq1 (Unspecialized a) where
+  liftEq _ (Unspecialized a) (Unspecialized b) = a == b
+
 deriving instance Eq (Unspecialized a b)
 deriving instance Show (Unspecialized a b)
 instance Show1 (Unspecialized a) where

test/Analysis/Python/Spec.hs

@@ -36,11 +36,11 @@ spec = parallel $ do
 
     it "subclasses" $ do
       res <- evaluate' "subclass.py"
-      join (fst res) `shouldBe` Right (injValue (String "\"bar\""))
+      fst res `shouldBe` Right (Right (Right (injValue (String "\"bar\""))))
 
     it "handles multiple inheritance left-to-right" $ do
       res <- evaluate' "multiple_inheritance.py"
-      join (fst res) `shouldBe` Right (injValue (String "\"foo!\""))
+      fst res `shouldBe`  Right (Right (Right (injValue (String "\"foo!\""))))
 
   where
     addr = Address . Precise

test/Analysis/Ruby/Spec.hs

@@ -28,7 +28,7 @@ spec = parallel $ do
 
     it "subclass" $ do
       res <- evaluate' "subclass.rb"
-      join (fst res) `shouldBe` Right (injValue (String "\"<bar>\""))
+      fst res `shouldBe` Right (Right (Right (injValue (String "\"<bar>\""))))
 
   where
     addr = Address . Precise