shake-0.0: Main.hs

module Main where

import System.Directory
import System.Environment

import qualified Examples.Tar.Main as Tar


main :: IO ()
main = do
    xs <- getArgs
    case xs of
        "clean":_ -> error "todo: clean"
        "tar":xs -> mkdir "output/tar" >> withArgs xs Tar.main
        _ -> error "Enter a command to continue"


mkdir = createDirectoryIfMissing True