aboutsummaryrefslogtreecommitdiffstatshomepage
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--apps/Prompt.hs6
1 files changed, 0 insertions, 6 deletions
diff --git a/apps/Prompt.hs b/apps/Prompt.hs
index d2127cd..07c2299 100644
--- a/apps/Prompt.hs
+++ b/apps/Prompt.hs
@@ -7,7 +7,6 @@
module Prompt
( withPrompt
, withoutPrompt
- , promptUnless
) where
import Control.Monad (liftM, void, when)
@@ -45,8 +44,3 @@ withPrompt msg m = do
withoutPrompt :: IO a -> IO Bool
withoutPrompt m = m >> return True
-
-promptUnless :: Bool -> String -> IO a -> IO Bool
-promptUnless skipPrompt msg
- | skipPrompt = withoutPrompt
- | otherwise = withPrompt msg