Permalink
Browse files

Put README in starter sites.

  • Loading branch information...
1 parent 84bd80a commit aa58103f28e30723222a601e2eaaf340d90e56b3 @jgm committed Aug 1, 2009
Showing with 2 additions and 0 deletions.
  1. +2 −0 yst.hs
View
2 yst.hs
@@ -44,6 +44,8 @@ createSite path = do
let dest = path </> file
createDirectoryIfMissing True $ takeDirectory dest
copyFile (demoDir </> file) dest
+ readme <- getDataFileName "README.markdown"
+ copyFile readme (path </> "README")
hPutStrLn stderr $ "Created starter site in " ++ path
usageMessage :: IO ()

0 comments on commit aa58103

Please sign in to comment.