@@ -11,11 +11,13 @@ import System.Directory (doesDirectoryExist, removeDirectoryRecursive)
1111hakyll :: IO () -> IO ()
1212hakyll buildFunction = do
1313 args <- getArgs
14− case args of [] -> build buildFunction
15− ["clean"] -> clean
16− ["server", p] -> server (read p)
17− ["server"] -> server 8000
18− _ -> help
14+ case args of [] -> build buildFunction
15+ ["clean"] -> clean
16+ ["preview", p] -> build buildFunction >> server (read p)
17+ ["preview"] -> build buildFunction >> server 8000
18+ ["server", p] -> server (read p)
19+ ["server"] -> server 8000
20+ _ -> help
1921
2022-- | Build the site.
2123build :: IO () -> IO ()
@@ -42,6 +44,7 @@ help = do
4244 ++ name ++ " Generate the site.\n"
4345 ++ name ++ " clean Clean up and remove cache.\n"
4446 ++ name ++ " help Show this message.\n"
47+ ++ name ++ " preview [port] Generate site, then start a server.\n"
4548 ++ name ++ " server [port] Run a local test server.\n"
4649
4750server :: Integer -> IO ()