This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "snap".
The branch, master has been updated
via 54cc10e3753c15a38ae8fcf05039b895434ff598 (commit)
from 2631a7e9288d6113e544b7f30ef81d4301c57ca5 (commit)
Summary of changes:
src/Snap/Starter.hs | 22 ++++++++++++++--------
1 files changed, 14 insertions(+), 8 deletions(-)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 54cc10e3753c15a38ae8fcf05039b895434ff598
Author: Gregory Collins <[email protected]>
Date: Mon Dec 13 21:10:05 2010 +0100
Make snap executable report its version
diff --git a/src/Snap/Starter.hs b/src/Snap/Starter.hs
index 4a2b9ff..ce8069d 100644
--- a/src/Snap/Starter.hs
+++ b/src/Snap/Starter.hs
@@ -4,7 +4,9 @@ module Main where
------------------------------------------------------------------------------
import Char
import Data.List
+import qualified Data.ByteString.Char8 as S
import qualified Data.Text as T
+import Snap.Http.Server (snapServerVersion)
import System
import System.Directory
import System.Console.GetOpt
@@ -22,14 +24,18 @@ $(buildData "tDirDefault" "default")
------------------------------------------------------------------------------
usage :: String
usage = unlines
- ["Usage:"
- ,""
- ," snap <action>"
- ,""
- ," <action> can be one of:"
- ," init - create a new project directory structure in the current
directory"
- ,""
- ," Note: you can use --help after any of the above actions to get help on
that action"
+ [ "Snap " ++ (S.unpack snapServerVersion) ++ " Project Kickstarter"
+ , ""
+ , "Usage:"
+ , ""
+ , " snap <action>"
+ , ""
+ , " <action> can be one of:"
+ , " init - create a new project directory structure in the " ++
+ "current directory"
+ , ""
+ , " Note: you can use --help after any of the above actions to get help "
+ , " on that action"
]
-----------------------------------------------------------------------
hooks/post-receive
--
snap
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
