diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-12 16:04:51 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-12 16:04:51 +0100 |
| commit | 2851153eb6abfaf8098a01f85967925bf8b7d166 (patch) | |
| tree | 2947acbcc2136a80c51fc81d423cb71effec1cac /src | |
| parent | a26f84dab5a49ce0fa00c7a0acfe84059451db5b (diff) | |
| download | hakyll-2851153eb6abfaf8098a01f85967925bf8b7d166.tar.gz | |
User should always specify task.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Hakyll.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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" |