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.

1 files changed, 1 insertions, 7 deletions

diff --git a/Servers.hs b/Servers.hs
index 55c1830..37e8256 100644
--- a/Servers.hs
+++ b/Servers.hs
@@ -5,16 +5,10 @@
 
 module Servers where
 
+import Types.Server
 import Network.Wai.Handler.Warp (Port)
 import Servant.Client
 
-type HostName = String
-
-data Server = Server
-	{ serverName :: HostName
-	, serverPort :: Port
-	}
-
 serverUrl :: Server -> BaseUrl
 serverUrl srv = BaseUrl Http (serverName srv) (serverPort srv) ""