1 files changed, 2 insertions, 0 deletions
diff --git a/keysafe.hs b/keysafe.hs
index b31d377..94a7b09 100644
--- a/keysafe.hs
+++ b/keysafe.hs
@@ -10,6 +10,7 @@ module Main where
 import Types
 import Tunables
 import qualified CmdLine
+import UI
 import Encryption
 import Cost
 import Shard
@@ -19,6 +20,7 @@ import Storage.LocalFiles
 main :: IO ()
 main = do
 	cmdline <- CmdLine.get
+	ui <- selectUI (CmdLine.gui cmdline)
 	let name = CmdLine.name cmdline
 	let keytype = CmdLine.keytype cmdline
 	-- TODO determine gpg key id by examining secret key,