forest-fire 0.1.0.1 → 0.1.0.2

raw patch · 2 files changed

+3/−7 lines, 2 files

Files

forest-fire.cabal +1/−1
src/Lib.hs +2/−6

forest-fire.cabal view

@@ -1,5 +1,5 @@ name:                forest-fire-version:             0.1.0.1+version:             0.1.0.2 synopsis:            Recursively delete CloudFormation stacks and their dependants description:   This simple tool will repeatedly query CloudFormation

src/Lib.hs view

@@ -1,8 +1,3 @@--- TODO--- * test suite (around JSON parsing, mostly)--- * readme (w/ how to install and use)--- * send to Hackage/Stackage- module Lib where  import Types@@ -20,11 +15,12 @@ showDeletionPlan stackName = do   putStrLn $ "Retrieving dependencies of " ++ stackName ++ "..."   tree <- buildDependencyGraph (StackName stackName)-  -- let tree = exampleDep2   putStrLn "Done.  Delete these stacks in postorder traversal:\n"   putStrLn $ drawTree (dependencyToTree tree)   putStrLn "Or, delete manually in this order:\n"   mapM_ putStrLn $ postorder (dependencyToTree tree)+  putStrLn "\nIf you trust this app you can execute:"+  putStrLn $ "forest-fire \"" ++ stackName ++ "\" --delete\n"  actuallyDoTheDelete :: String -> IO () actuallyDoTheDelete stackName = do