diff options
Diffstat (limited to 'Storage/Network.hs')
| -rw-r--r-- | Storage/Network.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Storage/Network.hs b/Storage/Network.hs index dec6d57..f8169c9 100644 --- a/Storage/Network.hs +++ b/Storage/Network.hs @@ -25,9 +25,11 @@ networkStorage localdir server = Storage , countShares = count server , moveShares = move server , uploadQueue = Just $ localStorage (storageDir localdir) - ("uploadqueue" </> serverName server) + ("uploadqueue" </> name) , getServer = Just server } + where + ServerName name = serverName server store :: Server -> StorableObjectIdent -> Share -> IO StoreResult store srv i (Share _n o) = |