1 files changed, 5 insertions, 0 deletions
diff --git a/keysafe.hs b/keysafe.hs
index 1eb52bd..83a010a 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -21,6 +21,7 @@ import Share
 import Storage
 import BackupRecord
 import HTTP.Server
+import ServerBackup
 import qualified Gpg
 import Data.Maybe
 import Data.Time.Clock
@@ -72,6 +73,10 @@ dispatch cmdline ui storagelocations tunables possibletunables = do
 		runServer
 			(CmdLine.localstoragedirectory cmdline)
 			(CmdLine.serverConfig cmdline)
+	go (CmdLine.GenBackup d) _ =
+		genBackup (CmdLine.localstoragedirectory cmdline) d
+	go (CmdLine.RestoreBackup d) _ =
+		restoreBackup (CmdLine.localstoragedirectory cmdline) d
 	go (CmdLine.Chaff hn) _ = storeChaff hn
 		(CmdLine.serverPort (CmdLine.serverConfig cmdline))
 	go CmdLine.Benchmark _ =