diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-09-14 16:42:26 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-09-14 16:59:20 -0400 |
commit | a41cbda751d515032859d72656fda3d219300ecb (patch) | |
tree | fdc5324c56e0b67b6e74826cd6b8cd742984ecf0 /Storage | |
parent | a68caf8b54b9d37deeaeddc6a28394d1587f1dc5 (diff) | |
download | keysafe-a41cbda751d515032859d72656fda3d219300ecb.tar.gz |
Store information about backed up keys in ~/.keysafe/backup.log
This can be deleted by the user at any time, but it's useful in case a
server is known to be compromised, or a problem is found with keysafe's
implementation that makes a backup insecure.
This commit was sponsored by Nick Daly on Patreon.
Diffstat (limited to 'Storage')
-rw-r--r-- | Storage/Local.hs | 1 | ||||
-rw-r--r-- | Storage/Network.hs | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/Storage/Local.hs b/Storage/Local.hs index 49ed311..6a952fa 100644 --- a/Storage/Local.hs +++ b/Storage/Local.hs @@ -41,6 +41,7 @@ localStorage getsharedir n = Storage , countShares = count section getsharedir , moveShares = move section getsharedir , uploadQueue = Nothing + , getServer = Nothing } where section = Section n diff --git a/Storage/Network.hs b/Storage/Network.hs index ff33e3f..dec6d57 100644 --- a/Storage/Network.hs +++ b/Storage/Network.hs @@ -11,8 +11,8 @@ module Storage.Network ( import Types import Types.Storage +import Types.Server import Storage.Local -import Servers import HTTP.Client import HTTP.ProofOfWork import System.FilePath @@ -26,6 +26,7 @@ networkStorage localdir server = Storage , moveShares = move server , uploadQueue = Just $ localStorage (storageDir localdir) ("uploadqueue" </> serverName server) + , getServer = Just server } store :: Server -> StorableObjectIdent -> Share -> IO StoreResult |