haskell-nix/hnix-store
1
1
Fork 0
mirror of https://github.com/haskell-nix/hnix-store.git synced 2024-08-17 13:51:21 +03:00
Code Issues Projects Releases Wiki Activity

remote: add Arbitrary Eq for SuccessCodeReply

Browse Source
This commit is contained in:
sorki 2023-12-13 09:26:08 +01:00
parent c1f7666e03
commit e20463df19
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

@ -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)