haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-09 21:07:29 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Add a scary warning about init

Browse Source
This commit is contained in:
Michael Snoyman 2012-12-03 20:14:17 +02:00
parent e453fed90c
commit b9a7065a0d
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
app/stackage.hs
View File

@ -4,6 +4,7 @@ import Stackage.Build (build, defaultBuildSettings)
import Stackage.Init (stackageInit) import Stackage.Init (stackageInit)
import System.Environment (getArgs, getProgName) import System.Environment (getArgs, getProgName)
import Data.Set (fromList) import Data.Set (fromList)
import System.IO (hFlush, stdout)
data BuildArgs = BuildArgs data BuildArgs = BuildArgs
{ noClean :: Bool { noClean :: Bool
@ -29,7 +30,15 @@ main = do
{ cleanBeforeBuild = not noClean { cleanBeforeBuild = not noClean
, excludedPackages = fromList $ map PackageName excluded , 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" ["update"] -> stackageInit >> error "FIXME update"
_ -> do _ -> do
pn <- getProgName pn <- getProgName