diff options
Diffstat (limited to 'Storage/Network.hs')
| -rw-r--r-- | Storage/Network.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Storage/Network.hs b/Storage/Network.hs index 21909d4..9b586b3 100644 --- a/Storage/Network.hs +++ b/Storage/Network.hs @@ -11,17 +11,21 @@ module Storage.Network ( import Types import Types.Storage +import Storage.Local import Servers import HTTP.Client import HTTP.ProofOfWork +import System.FilePath -networkStorage :: Server -> Storage -networkStorage server = Storage +networkStorage :: Maybe LocalStorageDirectory -> Server -> Storage +networkStorage localdir server = Storage { storeShare = store server , retrieveShare = retrieve server , obscureShares = obscure server , countShares = count server , moveShares = move server + , uploadQueue = Just $ localStorage (storageDir localdir) + ("uploadqueue" </> serverName server) } store :: Server -> StorableObjectIdent -> Share -> IO StoreResult |