summaryrefslogtreecommitdiffhomepage
path: root/UI.hs
diff options
context:
space:
mode:
authorJoey Hess <joeyh@joeyh.name>2016-09-01 11:43:01 -0400
committerJoey Hess <joeyh@joeyh.name>2016-09-01 11:43:01 -0400
commit3100ed23049f264e2fc43a02b8b65e7ce4578609 (patch)
treeab2cf2ce36b83893debc25ceffc769805c12c708 /UI.hs
parentf6931d56b182c0cac2e3551c4baec4352c5185da (diff)
downloadkeysafe-3100ed23049f264e2fc43a02b8b65e7ce4578609.tar.gz
Fix bug that prevented keysafe --server from running when there was no controlling terminal and zenity was not installed.
Diffstat (limited to 'UI.hs')
-rw-r--r--UI.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/UI.hs b/UI.hs
index c025bb3..4212468 100644
--- a/UI.hs
+++ b/UI.hs
@@ -11,6 +11,7 @@ import Types.UI
import Control.Monad
import UI.Zenity
import UI.Readline
+import UI.NonInteractive
import Control.Concurrent.MVar
availableUIs :: IO [UI]
@@ -27,7 +28,7 @@ selectUI needgui
l <- availableUIs
case l of
(u:_) -> return u
- [] -> error "Neither zenity nor the readline UI are available"
+ [] -> return noninteractiveUI
-- Adds a percent to whatever amount the progress bar is at.
type AddPercent = Percent -> IO ()