diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2016-07-18 04:49:58 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2016-07-18 04:49:58 +0300 |
| commit | bcb07f220f6aa96e431e3bd18697d450089b3334 (patch) | |
| tree | 55fa387c3d5b23e1d4ed1798d2994dc2d07d2a92 /apps/Prompt.hs | |
| parent | fix compiler warnings + refactoring (diff) | |
| download | windows-env-bcb07f220f6aa96e431e3bd18697d450089b3334.tar.gz windows-env-bcb07f220f6aa96e431e3bd18697d450089b3334.zip | |
remove dead code
Diffstat (limited to '')
| -rw-r--r-- | apps/Prompt.hs | 6 |
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 |