diff options
Diffstat (limited to 'UI.hs')
-rw-r--r-- | UI.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 () |