From bcb07f220f6aa96e431e3bd18697d450089b3334 Mon Sep 17 00:00:00 2001
From: Egor Tensin <Egor.Tensin@gmail.com>
Date: Mon, 18 Jul 2016 04:49:58 +0300
Subject: remove dead code

---
 apps/Prompt.hs | 6 ------
 1 file changed, 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
-- 
cgit v1.2.3