@@ -11,11 +11,11 @@ import System.Directory (doesDirectoryExist, removeDirectoryRecursive)
11hakyll :: IO () -> IO ()
11hakyll :: IO () -> IO ()
12hakyll action = do
12hakyll action = do
13 args <- getArgs
13 args <- getArgs
14− case args of [] -> action
14+ case args of [] -> action
15− ["--clean"] -> clean
15+ ["clean"] -> clean
16− ["--server", p] -> server (read p)
16+ ["server", p] -> server (read p)
17− ["--server"] -> server 8000
17+ ["server"] -> server 8000
18− _ -> help
18+ _ -> help
20-- | Clean up directories.
20-- | Clean up directories.
21clean :: IO ()
21clean :: IO ()
@@ -34,9 +34,9 @@ help = do
35 ++ "Usage:\n"
35 ++ "Usage:\n"
36 ++ name ++ " Generate the site.\n"
36 ++ name ++ " Generate the site.\n"
37− ++ name ++ " --clean Clean up and remove cache.\n"
37+ ++ name ++ " clean Clean up and remove cache.\n"
38− ++ name ++ " --help Show this message.\n"
38+ ++ name ++ " help Show this message.\n"
39− ++ name ++ " --server [port] Run a local test server.\n"
39+ ++ name ++ " server [port] Run a local test server.\n"
41server :: Integer -> IO ()
41server :: Integer -> IO ()
42server p = do simpleServer (fromIntegral $ p)
42server p = do simpleServer (fromIntegral $ p)