summaryrefslogtreecommitdiffhomepage
path: root/keysafe.hs
diff options
context:
space:
mode:
authorJoey Hess <joeyh@joeyh.name>2016-08-12 11:44:34 -0400
committerJoey Hess <joeyh@joeyh.name>2016-08-12 11:44:34 -0400
commit3ee306d3d4bda52268f07df874070b65d171694e (patch)
tree4ed6a83a2e4358b0dd0ff4a0a5c62108a99286c2 /keysafe.hs
parenta58aea595a780c91bbbe26d2d24a63abcd835994 (diff)
downloadkeysafe-3ee306d3d4bda52268f07df874070b65d171694e.tar.gz
add --gui option
Diffstat (limited to 'keysafe.hs')
-rw-r--r--keysafe.hs2
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,