hake-0.2: Main.hs

module Main where

import System.Environment           (getArgs)
import System.Exit                  (ExitCode(ExitSuccess))
import Development.Hake.HiddenTools (runHake)
import Paths_hake                   (version)
import Data.Version                 (showVersion)

main :: IO ExitCode
main = do args <- getArgs
          case args of
	    [ "--version" ] -> putStrLn ("hake " ++ showVersion version) >> return ExitSuccess
            _               -> runHake "Hakefile" "hake" [] (if null args then ["default"] else args)