diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-08-19 13:00:34 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-08-19 13:00:34 -0400 |
| commit | 6261f7e58b764ae48293bee3b1863b518e9f0442 (patch) | |
| tree | d9260d1beeced137e36c1ae1945c499d85e91608 /Storage/Network.hs | |
| parent | d3323ab8e9e39bcb0a6493d33efa265073920a7d (diff) | |
| download | keysafe-6261f7e58b764ae48293bee3b1863b518e9f0442.tar.gz | |
rename shard -> share
This makes it clearer that it's not a chunk of data, but a Shamir share.
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. |