diff options
| -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 |