mirror of
https://github.com/haskell-nix/hnix-store.git
synced 2024-08-17 13:51:21 +03:00
remote: add StoreReply (HashSet StorePath) & StoreReply (HashSet StorePathName)
This commit is contained in:
parent
04a38e8c46
commit
774590eb6e
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user