Added --version

This commit is contained in:
Michael Snoyman 2012-09-29 22:44:48 +02:00
parent 18cc6e3a9e
commit 9e5e4ab233
2 changed files with 6 additions and 2 deletions

View File

@ -1,5 +1,5 @@
Name: keter
Version: 0.2.0.2
Version: 0.2.0.3
Synopsis: Web application deployment manager, focusing on Haskell web frameworks
Description: Handles deployment of web apps, providing a reverse proxy to achieve zero downtime deployments. For more information, please see the README on Github: <https://github.com/snoyberg/keter#readme>
Homepage: http://www.yesodweb.com/
@ -58,6 +58,7 @@ Executable keter
hs-source-dirs: main
Build-depends: base, keter
ghc-options: -threaded -Wall
other-modules: Paths_keter
source-repository head
type: git

View File

@ -1,12 +1,15 @@
{-# LANGUAGE NoImplicitPrelude #-}
import Prelude (error, (++), ($), IO)
import Prelude (error, (++), ($), IO, putStrLn)
import System.Environment (getArgs, getProgName)
import Keter.Main (keter)
import Paths_keter (version)
import Data.Version (showVersion)
main :: IO ()
main = do
args <- getArgs
case args of
["--version"] -> putStrLn $ "keter version: " ++ showVersion version
[dir] -> keter dir
_ -> do
pn <- getProgName