@@ -11,7 +11,7 @@ import System.Directory (doesDirectoryExist, removeDirectoryRecursive)
1111hakyll :: IO () -> IO ()
1212hakyll buildFunction = do
1313 args <- getArgs
14− case args of [] -> build buildFunction
14+ case args of ["build"] -> build buildFunction
1515 ["clean"] -> clean
1616 ["preview", p] -> build buildFunction >> server (read p)
1717 ["preview"] -> build buildFunction >> server 8000
@@ -38,11 +38,11 @@ clean = do remove' "_cache"
3838help :: IO ()
3939help = do
4040 name <- getProgName
41− putStrLn $ "This is a hakyll site generator program. You should always\n"
41+ putStrLn $ "This is a Hakyll site generator program. You should always\n"
4242 ++ "run it from the project root directory.\n"
4343 ++ "\n"
4444 ++ "Usage:\n"
45− ++ name ++ " Generate the site.\n"
45+ ++ name ++ " build Generate the site.\n"
4646 ++ name ++ " clean Clean up and remove cache.\n"
4747 ++ name ++ " help Show this message.\n"
4848 ++ name ++ " preview [port] Generate site, then start a server.\n"