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-core".
The branch, master has been updated
via 91d88ecbec9cad82933849889e9b7f4d05a2c425 (commit)
from c797f4c6f0c2b0627328a5d6bd77c7cae47c7bfb (commit)
Summary of changes:
src/Snap/Starter.hs | 4 +++-
1 files changed, 3 insertions(+), 1 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 91d88ecbec9cad82933849889e9b7f4d05a2c425
Author: Mighty Byte <[email protected]>
Date: Wed Oct 6 16:20:53 2010 -0400
Fixed bug regarding characters in the project name.
diff --git a/src/Snap/Starter.hs b/src/Snap/Starter.hs
index 96b52be..1933043 100644
--- a/src/Snap/Starter.hs
+++ b/src/Snap/Starter.hs
@@ -2,6 +2,7 @@
module Main where
------------------------------------------------------------------------------
+import Char
import Data.List
import qualified Data.Text as T
import System
@@ -46,9 +47,10 @@ setup projName tDir = do
if isSuffixOf "foo.cabal" f
then writeFile (projName++".cabal") (insertProjName $ T.pack c)
else writeFile f c
+ isNameChar c = isAlphaNum c || c == '-'
insertProjName c = T.unpack $ T.replace
(T.pack "projname")
- (T.pack $ filter (/='_') projName) c
+ (T.pack $ filter isNameChar projName) c
------------------------------------------------------------------------------
initProject :: [String] -> IO ()
-----------------------------------------------------------------------
hooks/post-receive
--
snap-core
_______________________________________________
Snap mailing list
[email protected]
http://mailman-mail5.webfaction.com/listinfo/snap
