From a41cbda751d515032859d72656fda3d219300ecb Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 14 Sep 2016 16:42:26 -0400 Subject: 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. --- Storage/Network.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Storage/Network.hs') 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 -- cgit v1.2.3