diff options
Diffstat (limited to 'Types/Storage.hs')
-rw-r--r-- | Types/Storage.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Types/Storage.hs b/Types/Storage.hs index 2dabcac..d9db853 100644 --- a/Types/Storage.hs +++ b/Types/Storage.hs @@ -9,6 +9,7 @@ module Types.Storage where import Types +import Types.Server import GHC.Generics import Data.Aeson.Types @@ -34,6 +35,7 @@ data Storage = Storage , moveShares :: Storage -> IO [StoreResult] -- ^ Tries to move all shares from this storage to another one. , uploadQueue :: Maybe Storage + , getServer :: Maybe Server } data StoreResult = StoreSuccess | StoreAlreadyExists | StoreFailure String |