From e20463df1960be69c6b6765ddeacce5dd0960634 Mon Sep 17 00:00:00 2001
From: sorki <srk@48.io>
Date: Wed, 13 Dec 2023 09:26:08 +0100
Subject: [PATCH] remote: add Arbitrary Eq for SuccessCodeReply

---
 hnix-store-remote/src/System/Nix/Store/Remote/Arbitrary.hs    | 3 +++
 .../src/System/Nix/Store/Remote/Types/SuccessCodeReply.hs     | 4 +++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/hnix-store-remote/src/System/Nix/Store/Remote/Arbitrary.hs b/hnix-store-remote/src/System/Nix/Store/Remote/Arbitrary.hs
index 3a08a87..0ab81b9 100644
--- a/hnix-store-remote/src/System/Nix/Store/Remote/Arbitrary.hs
+++ b/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
 
diff --git a/hnix-store-remote/src/System/Nix/Store/Remote/Types/SuccessCodeReply.hs b/hnix-store-remote/src/System/Nix/Store/Remote/Types/SuccessCodeReply.hs
index 1b9eeda..1b38d05 100644
--- a/hnix-store-remote/src/System/Nix/Store/Remote/Types/SuccessCodeReply.hs
+++ b/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)