From aead2b77331482ca3af2ea386de00e41c50f7c12 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 29 Aug 2016 19:11:51 -0400
Subject: make server default to only listening to localhost

This way, the tor hidden service using it will be the only way it's
exposed.
---
 keysafe.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'keysafe.hs')

diff --git a/keysafe.hs b/keysafe.hs
index 2ba5ff7..f724b97 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -63,8 +63,10 @@ dispatch cmdline ui storagelocations tunables possibletunables = do
 		restore storagelocations ui possibletunables Gpg.anyKey
 	go CmdLine.UploadQueued _ =
 		uploadQueued
-	go (CmdLine.Server port) _ =
-		runServer port
+	go (CmdLine.Server) _ =
+		runServer
+			(CmdLine.serverAddress $ CmdLine.serverConfig cmdline)
+			(CmdLine.serverPort $ CmdLine.serverConfig cmdline)
 	go CmdLine.Benchmark _ =
 		benchmarkTunables tunables
 
-- 
cgit v1.2.3