From 3ee306d3d4bda52268f07df874070b65d171694e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 12 Aug 2016 11:44:34 -0400 Subject: add --gui option --- keysafe.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'keysafe.hs') 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, -- cgit v1.2.3