Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Added --version

  • Loading branch information...
commit 9e5e4ab23319ac1cd06e66e091286e27c58ec749 1 parent 18cc6e3
@snoyberg authored
Showing with 6 additions and 2 deletions.
  1. +2 −1  keter.cabal
  2. +4 −1 main/keter.hs
View
3  keter.cabal
@@ -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
5 main/keter.hs
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.