summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Text/Hakyll.hs16
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)