diff options
Diffstat (limited to 'Storage/Local.hs')
-rw-r--r-- | Storage/Local.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/Storage/Local.hs b/Storage/Local.hs index 71d5aa7..20d0922 100644 --- a/Storage/Local.hs +++ b/Storage/Local.hs @@ -7,13 +7,11 @@ module Storage.Local ( localStorage , storageDir , testStorageDir - , uploadQueue , localDiskUsage ) where import Types import Types.Storage -import Servers import Serialization () import qualified Data.ByteString as B import qualified Data.ByteString.UTF8 as U8 @@ -41,13 +39,11 @@ localStorage getsharedir n = Storage , obscureShares = obscure section getsharedir , countShares = count section getsharedir , moveShares = move section getsharedir + , uploadQueue = Nothing } where section = Section n -uploadQueue :: Maybe LocalStorageDirectory -> Server -> Storage -uploadQueue d s = localStorage (storageDir d) ("uploadqueue" </> serverName s) - store :: Section -> GetShareDir -> StorableObjectIdent -> Share -> IO StoreResult store section getsharedir i s = onError (StoreFailure . show) $ do dir <- getsharedir section |