From f4f1d86ca8ff19192ce742c555a6e8236bacdd78 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Mon, 28 Dec 2009 11:23:31 +0100
Subject: Added preview command.

---
 src/Text/Hakyll.hs | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Hakyll.hs b/src/Text/Hakyll.hs
index bafe4a8..d34c1c8 100644
--- a/src/Text/Hakyll.hs
+++ b/src/Text/Hakyll.hs
@@ -11,11 +11,13 @@ import System.Directory (doesDirectoryExist, removeDirectoryRecursive)
 hakyll :: IO () -> IO ()
 hakyll buildFunction = do
     args <- getArgs
-    case args of []            -> build buildFunction
-                 ["clean"]     -> clean
-                 ["server", p] -> server (read p)
-                 ["server"]    -> server 8000
-                 _             -> help
+    case args of []             -> build buildFunction
+                 ["clean"]      -> clean
+                 ["preview", p] -> build buildFunction >> server (read p)
+                 ["preview"]    -> build buildFunction >> server 8000
+                 ["server", p]  -> server (read p)
+                 ["server"]     -> server 8000
+                 _              -> help
 
 -- | Build the site.
 build :: IO () -> IO ()
@@ -42,6 +44,7 @@ help = do
              ++ name ++ "                 Generate the site.\n"
              ++ name ++ " clean           Clean up and remove cache.\n"
              ++ name ++ " help            Show this message.\n"
+             ++ name ++ " preview [port]  Generate site, then start a server.\n"
              ++ name ++ " server [port]   Run a local test server.\n"
 
 server :: Integer -> IO ()
-- 
cgit v1.2.3