http client, and --server

1 files changed, 3 insertions, 0 deletions

diff --git a/keysafe.hs b/keysafe.hs
index 2af2ad2..2b40842 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -18,6 +18,7 @@ import Cost
 import SecretKey
 import Share
 import Storage
+import HTTP.Server
 import qualified Gpg
 import Data.Maybe
 import Data.Time.Clock
@@ -62,6 +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.Benchmark _ =
 		benchmarkTunables tunables