From a41cbda751d515032859d72656fda3d219300ecb Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
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.
---
 Servers.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'Servers.hs')

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) ""
 
-- 
cgit v1.2.3