diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-09-14 14:02:29 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-09-14 14:28:56 -0400 |
| commit | 0a3eb9be07a7514f5544384bc914f22ea88c24a8 (patch) | |
| tree | 3e9ef44c3d61d4ed451d04b8a1d3e8f9de0dcf7a /Types | |
| parent | 8d1185c3884f8125cedf9c4c8060cb5d360e9ef4 (diff) | |
| download | keysafe-0a3eb9be07a7514f5544384bc914f22ea88c24a8.tar.gz | |
Warn when uploads fail and are put in the upload queue.
Diffstat (limited to 'Types')
| -rw-r--r-- | Types/Storage.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Types/Storage.hs b/Types/Storage.hs index bc186e7..d6e4edf 100644 --- a/Types/Storage.hs +++ b/Types/Storage.hs @@ -33,6 +33,7 @@ data Storage = Storage , countShares :: IO CountResult , moveShares :: Storage -> IO () -- ^ Tries to move all shares from this storage to another one. + , uploadQueue :: Maybe Storage } data StoreResult = StoreSuccess | StoreAlreadyExists | StoreFailure String |