cheap juju bootstrap, now in haskell \o/

cheapbootstrap

#!/usr/bin/env runhaskell

{-# LANGUAGE OverloadedStrings #-}

import System.Environment
import System.Process
import System.Exit

usage = putStrLn "need to specify cloud and controller name"

parse [""] = usage >> exitWith ExitSuccess
parse ["-h"] = usage >> exitWith ExitSuccess
parse a = run a >> exitWith ExitSuccess

main = getArgs >>= parse

run :: [[Char]] -> IO ExitCode
run ("aws" : controller : xs) = bootstrapAndConstraint "aws" "t1.micro" controller
run ("google" : controller: xs) = bootstrapAndConstraint "google" "g1-small" controller
run a = usage >> exitWith ExitSuccess

bootstrapAndConstraint cloud inst controller = system (bootstrap cloud inst controller) >> system (constraint inst)

bootstrap cloud inst controller = "juju bootstrap " ++ cloud ++ " " ++controller ++ " --constraints instance-type=" ++ inst
constraint inst = "juju set-model-constraints instance-type=" ++ inst