remote: add Arbitrary Eq for SuccessCodeReply

Author: sorki

hnix-store-remote/src/System/Nix/Store/Remote/Arbitrary.hs

@@ -123,6 +123,9 @@ instance Arbitrary (Some StoreRequest) where
 
 -- ** Reply
 
+deriving via GenericArbitrary SuccessCodeReply
+  instance Arbitrary SuccessCodeReply
+
 deriving via GenericArbitrary GCResult
   instance Arbitrary GCResult
 

hnix-store-remote/src/System/Nix/Store/Remote/Types/SuccessCodeReply.hs

@@ -2,7 +2,9 @@ module System.Nix.Store.Remote.Types.SuccessCodeReply
   ( SuccessCodeReply(..)
   ) where
 
+import GHC.Generics (Generic)
+
 -- | Reply that checks an int success return value
 data SuccessCodeReply = SuccessCodeReply
-  deriving (Show)
+  deriving (Eq, Show, Generic)