From 774590eb6e945aa0a089cba7ae393f8f6dd80113 Mon Sep 17 00:00:00 2001 From: sorki Date: Thu, 7 Dec 2023 09:15:44 +0100 Subject: [PATCH] remote: add StoreReply (HashSet StorePath) & StoreReply (HashSet StorePathName) --- .../src/System/Nix/Store/Remote/Types/StoreReply.hs | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/hnix-store-remote/src/System/Nix/Store/Remote/Types/StoreReply.hs b/hnix-store-remote/src/System/Nix/Store/Remote/Types/StoreReply.hs index e022ad5..08749ad 100644 --- a/hnix-store-remote/src/System/Nix/Store/Remote/Types/StoreReply.hs +++ b/hnix-store-remote/src/System/Nix/Store/Remote/Types/StoreReply.hs @@ -2,8 +2,9 @@ module System.Nix.Store.Remote.Types.StoreReply ( StoreReply(..) ) where +import Data.HashSet (HashSet) import System.Nix.Build (BuildResult) -import System.Nix.StorePath (HasStoreDir(..), StorePath) +import System.Nix.StorePath (HasStoreDir(..), StorePath, StorePathName) import System.Nix.StorePath.Metadata (Metadata) import System.Nix.Store.Remote.Serializer import System.Nix.Store.Remote.Types.GC (GCResult) @@ -43,6 +44,12 @@ instance StoreReply (Maybe (Metadata StorePath)) where instance StoreReply StorePath where getReplyS = mapPrimE storePath +instance StoreReply (HashSet StorePath) where + getReplyS = mapPrimE (hashSet storePath) + +instance StoreReply (HashSet StorePathName) where + getReplyS = mapPrimE (hashSet storePathName) + mapPrimE :: NixSerializer r SError a -> NixSerializer r ReplySError a