@@ -4,6 +4,7 @@ import Stackage.Build (build, defaultBuildSettings)
44import Stackage.Init (stackageInit)
55import System.Environment (getArgs, getProgName)
66import Data.Set (fromList)
7+import System.IO (hFlush, stdout)
78
89data BuildArgs = BuildArgs
910 { noClean :: Bool
@@ -29,7 +30,15 @@ main = do
2930 { cleanBeforeBuild = not noClean
3031 , excludedPackages = fromList $ map PackageName excluded
3132 }
32− ["init"] -> stackageInit
33+ ["init"] -> do
34+ putStrLn "Note: init isn't really ready for prime time use."
35+ putStrLn "Using it may make it impossible to build stackage."
36+ putStr "Are you sure you want continue (y/n)? "
37+ hFlush stdout
38+ x <- getLine
39+ case x of
40+ c:_ | c `elem` "yY" -> stackageInit
41+ _ -> putStrLn "Probably a good decision, exiting."
3342 ["update"] -> stackageInit >> error "FIXME update"
3443 _ -> do
3544 pn <- getProgName