summaryrefslogtreecommitdiffhomepage
path: root/UI.hs
diff options
context:
space:
mode:
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 ()