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.

2 files changed, 18 insertions, 0 deletions

diff --git a/Types/Server.hs b/Types/Server.hs
new file mode 100644
index 0000000..dd06909
--- /dev/null
+++ b/Types/Server.hs
@@ -0,0 +1,16 @@
+{- Copyright 2016 Joey Hess <id@joeyh.name>
+ -
+ - Licensed under the GNU AGPL version 3 or higher.
+ -}
+
+module Types.Server where
+
+import Network.Wai.Handler.Warp (Port)
+
+type HostName = String
+
+data Server = Server
+	{ serverName :: HostName
+	, serverPort :: Port
+	}
+	deriving (Show)
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