From 3221ff61fb04ce9f72553d48c6552aefc1715e69 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 27 Dec 2009 19:12:34 +0100 Subject: Easier commands. --- src/Text/Hakyll.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'src/Text/Hakyll.hs') 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) -- cgit v1.2.3