aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/apps/Prompt.hs
diff options
context:
space:
mode:
authorEgor Tensin <Egor.Tensin@gmail.com>2016-07-18 04:49:58 +0300
committerEgor Tensin <Egor.Tensin@gmail.com>2016-07-18 04:49:58 +0300
commitbcb07f220f6aa96e431e3bd18697d450089b3334 (patch)
tree55fa387c3d5b23e1d4ed1798d2994dc2d07d2a92 /apps/Prompt.hs
parentfix compiler warnings + refactoring (diff)
downloadwindows-env-bcb07f220f6aa96e431e3bd18697d450089b3334.tar.gz
windows-env-bcb07f220f6aa96e431e3bd18697d450089b3334.zip
remove dead code
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