1 files changed, 2 insertions, 2 deletions
diff --git a/keysafe.hs b/keysafe.hs
index 2b40842..2ba5ff7 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -63,8 +63,8 @@ dispatch cmdline ui storagelocations tunables possibletunables = do
 		restore storagelocations ui possibletunables Gpg.anyKey
 	go CmdLine.UploadQueued _ =
 		uploadQueued
-	go CmdLine.Server _ =
-		runServer 80
+	go (CmdLine.Server port) _ =
+		runServer port
 	go CmdLine.Benchmark _ =
 		benchmarkTunables tunables