diff options
Diffstat (limited to 'Storage/Network.hs')
| -rw-r--r-- | Storage/Network.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Storage/Network.hs b/Storage/Network.hs index 2b837dc..16ed97d 100644 --- a/Storage/Network.hs +++ b/Storage/Network.hs @@ -17,17 +17,17 @@ networkServers = return [] -- none yet networkStorage :: Server -> Storage networkStorage server = Storage - { storeShard = store server - , retrieveShard = retrieve server - , obscureShards = obscure server - , countShards = count server - , moveShards = move server + { storeShare = store server + , retrieveShare = retrieve server + , obscureShares = obscure server + , countShares = count server + , moveShares = move server } -store :: Server -> StorableObjectIdent -> Shard -> IO StoreResult +store :: Server -> StorableObjectIdent -> Share -> IO StoreResult store _server _i _s = return $ StoreFailure "network storage not implemented yet" -retrieve :: Server -> ShardNum -> StorableObjectIdent -> IO RetrieveResult +retrieve :: Server -> ShareNum -> StorableObjectIdent -> IO RetrieveResult retrieve _server _n _i = return $ RetrieveFailure "network storage not implemented yet" -- | Servers should automatically obscure, so do nothing. |