diff options
Diffstat (limited to 'Storage/Network.hs')
| -rw-r--r-- | Storage/Network.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Storage/Network.hs b/Storage/Network.hs index e2004cc..9d54a1c 100644 --- a/Storage/Network.hs +++ b/Storage/Network.hs @@ -7,6 +7,7 @@ module Storage.Network ( networkStorage, + networkStorageOverride, ) where import Types @@ -32,6 +33,13 @@ networkStorage storagelevel localdir server = Storage where ServerName name = serverName server +networkStorageOverride :: Maybe LocalStorageDirectory -> HostName -> Port -> Storage +networkStorageOverride lsd h p = networkStorage LocallyPreferred lsd $ Server + { serverName = ServerName h + , serverAddress = [ServerAddress h p] + , serverDesc = h + } + store :: Server -> StorableObjectIdent -> Share -> IO StoreResult store srv i (Share _n o) = serverRequest srv StoreFailure id i $ \pow -> |