import Stackage.Update
import System.Environment (getArgs)
import Data.List ((++))

main :: IO ()
main = do
    args <- getArgs
    case args of
        ["--help"] -> putStrLn $ "Usage: stackage-update \n" ++
                      "Run this command with no arguments to update your package index."
        ["--summary"] -> putStrLn "Update your package index incrementally (requires git)"
        _ -> stackageUpdate defaultStackageUpdateSettings