diff options
Diffstat (limited to 'Storage/Network.hs')
| -rw-r--r-- | Storage/Network.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/Storage/Network.hs b/Storage/Network.hs index 9d54a1c..41d1ff1 100644 --- a/Storage/Network.hs +++ b/Storage/Network.hs @@ -33,12 +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 - } +networkStorageOverride :: Maybe LocalStorageDirectory -> HostName -> Port -> IO (Maybe Storage) +networkStorageOverride lsd h p = return $ Just $ + 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) = |