@@ -11,11 +11,13 @@ import System.Directory (doesDirectoryExist, removeDirectoryRecursive)
11hakyll :: IO () -> IO ()
11hakyll :: IO () -> IO ()
12hakyll buildFunction = do
12hakyll buildFunction = do
13 args <- getArgs
13 args <- getArgs
14− case args of [] -> build buildFunction
14+ case args of [] -> build buildFunction
15− ["clean"] -> clean
15+ ["clean"] -> clean
16− ["server", p] -> server (read p)
16+ ["preview", p] -> build buildFunction >> server (read p)
17+ ["preview"] -> build buildFunction >> server 8000
18+ ["server", p] -> server (read p)
17− ["server"] -> server 8000
19+ ["server"] -> server 8000
18− _ -> help
20+ _ -> help
20-- | Build the site.
22-- | Build the site.
21build :: IO () -> IO ()
23build :: IO () -> IO ()
@@ -42,6 +44,7 @@ help = do
42 ++ name ++ " Generate the site.\n"
44 ++ name ++ " Generate the site.\n"
43 ++ name ++ " clean Clean up and remove cache.\n"
45 ++ name ++ " clean Clean up and remove cache.\n"
44 ++ name ++ " help Show this message.\n"
46 ++ name ++ " help Show this message.\n"
47+ ++ name ++ " preview [port] Generate site, then start a server.\n"
45 ++ name ++ " server [port] Run a local test server.\n"
48 ++ name ++ " server [port] Run a local test server.\n"
47server :: Integer -> IO ()
50server :: Integer -> IO ()