diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2009-12-27 19:12:34 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2009-12-27 19:12:34 +0100 |
| commit | 3221ff61fb04ce9f72553d48c6552aefc1715e69 (patch) | |
| tree | d9a149c8a0993d4966b061ade7b29912553e4ad5 | |
| parent | b6c81987965f83962217e3b1abdfe36d3a53a812 (diff) | |
| download | hakyll-3221ff61fb04ce9f72553d48c6552aefc1715e69.tar.gz | |
Easier commands.
| -rw-r--r-- | src/Text/Hakyll.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Text/Hakyll.hs b/src/Text/Hakyll.hs index 4aa88cb..39bf9e1 100644 --- a/src/Text/Hakyll.hs +++ b/src/Text/Hakyll.hs @@ -11,11 +11,11 @@ import System.Directory (doesDirectoryExist, removeDirectoryRecursive) hakyll :: IO () -> IO () hakyll action = do args <- getArgs - case args of [] -> action - ["--clean"] -> clean - ["--server", p] -> server (read p) - ["--server"] -> server 8000 - _ -> help + case args of [] -> action + ["clean"] -> clean + ["server", p] -> server (read p) + ["server"] -> server 8000 + _ -> help -- | Clean up directories. clean :: IO () @@ -34,9 +34,9 @@ help = do ++ "\n" ++ "Usage:\n" ++ name ++ " Generate the site.\n" - ++ name ++ " --clean Clean up and remove cache.\n" - ++ name ++ " --help Show this message.\n" - ++ name ++ " --server [port] Run a local test server.\n" + ++ name ++ " clean Clean up and remove cache.\n" + ++ name ++ " help Show this message.\n" + ++ name ++ " server [port] Run a local test server.\n" server :: Integer -> IO () server p = do simpleServer (fromIntegral $ p) |