mirror of
https://github.com/snoyberg/keter.git
synced 2024-12-14 08:05:40 +03:00
Added --version
This commit is contained in:
parent
18cc6e3a9e
commit
9e5e4ab233
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user