From 2851153eb6abfaf8098a01f85967925bf8b7d166 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Tue, 12 Jan 2010 16:04:51 +0100 Subject: User should always specify task. --- src/Text/Hakyll.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Hakyll.hs b/src/Text/Hakyll.hs index 7c74b2e..e23e211 100644 --- a/src/Text/Hakyll.hs +++ b/src/Text/Hakyll.hs @@ -11,7 +11,7 @@ import System.Directory (doesDirectoryExist, removeDirectoryRecursive) hakyll :: IO () -> IO () hakyll buildFunction = do args <- getArgs - case args of [] -> build buildFunction + case args of ["build"] -> build buildFunction ["clean"] -> clean ["preview", p] -> build buildFunction >> server (read p) ["preview"] -> build buildFunction >> server 8000 @@ -38,11 +38,11 @@ clean = do remove' "_cache" help :: IO () help = do name <- getProgName - putStrLn $ "This is a hakyll site generator program. You should always\n" + putStrLn $ "This is a Hakyll site generator program. You should always\n" ++ "run it from the project root directory.\n" ++ "\n" ++ "Usage:\n" - ++ name ++ " Generate the site.\n" + ++ name ++ " build Generate the site.\n" ++ name ++ " clean Clean up and remove cache.\n" ++ name ++ " help Show this message.\n" ++ name ++ " preview [port] Generate site, then start a server.\n" -- cgit v1.2.3