@@ -11,11 +11,11 @@ import System.Directory (doesDirectoryExist, removeDirectoryRecursive)
1111hakyll :: IO () -> IO ()
1212hakyll action = do
1313 args <- getArgs
14− case args of [] -> action
15− ["--clean"] -> clean
16− ["--server", p] -> server (read p)
17− ["--server"] -> server 8000
18− _ -> help
14+ case args of [] -> action
15+ ["clean"] -> clean
16+ ["server", p] -> server (read p)
17+ ["server"] -> server 8000
18+ _ -> help
1919
2020-- | Clean up directories.
2121clean :: IO ()
@@ -34,9 +34,9 @@ help = do
3434 ++ "\n"
3535 ++ "Usage:\n"
3636 ++ name ++ " Generate the site.\n"
37− ++ name ++ " --clean Clean up and remove cache.\n"
38− ++ name ++ " --help Show this message.\n"
39− ++ name ++ " --server [port] Run a local test server.\n"
37+ ++ name ++ " clean Clean up and remove cache.\n"
38+ ++ name ++ " help Show this message.\n"
39+ ++ name ++ " server [port] Run a local test server.\n"
4040
4141server :: Integer -> IO ()
4242server p = do simpleServer (fromIntegral $ p)