Fixed issue 16. Had to filter underscores from the project name writt…

…en to the project cabal file.
snapframework · Sep 1, 2010 · 4e83df6 · 4e83df6
1 parent a77fc64
commit 4e83df6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Snap/Starter.hs b/src/Snap/Starter.hs
@@ -48,7 +48,7 @@ setup projName tDir = do
           else writeFile f c
     insertProjName c = T.unpack $ T.replace
                            (T.pack "projname")
-                           (T.pack projName) c
+                           (T.pack $ filter (/='_') projName) c
 
 ------------------------------------------------------------------------------
 initProject :: [String] -> IO ()