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 StoreReply (HashSet StorePath) & StoreReply (HashSet StorePathName)

Browse Source
This commit is contained in:
sorki 2023-12-07 09:15:44 +01:00
parent 04a38e8c46
commit 774590eb6e
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hnix-store-remote/src/System/Nix/Store/Remote/Types/StoreReply.hs
View File

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