From b9a7065a0dd30334ee858412654fdac828ffcac6 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 3 Dec 2012 20:14:17 +0200
Subject: [PATCH] Add a scary warning about init

---
 app/stackage.hs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/app/stackage.hs b/app/stackage.hs
index 7f1ebbf9..ec67cc03 100644
--- a/app/stackage.hs
+++ b/app/stackage.hs
@@ -4,6 +4,7 @@ import           Stackage.Build     (build, defaultBuildSettings)
 import           Stackage.Init      (stackageInit)
 import           System.Environment (getArgs, getProgName)
 import           Data.Set           (fromList)
+import           System.IO          (hFlush, stdout)
 
 data BuildArgs = BuildArgs
     { noClean :: Bool
@@ -29,7 +30,15 @@ main = do
                 { cleanBeforeBuild = not noClean
                 , excludedPackages = fromList $ map PackageName excluded
                 }
-        ["init"] -> stackageInit
+        ["init"] -> do
+            putStrLn "Note: init isn't really ready for prime time use."
+            putStrLn "Using it may make it impossible to build stackage."
+            putStr "Are you sure you want continue (y/n)? "
+            hFlush stdout
+            x <- getLine
+            case x of
+                c:_ | c `elem` "yY" -> stackageInit
+                _ -> putStrLn "Probably a good decision, exiting."
         ["update"] -> stackageInit >> error "FIXME update"
         _ -> do
             pn <- getProgName