make server default to only listening to localhost

This way, the tor hidden service using it will be the only way it's
exposed.

1 files changed, 4 insertions, 2 deletions

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