From 0a65be849ef83c9f3b094136fe7ffae75ab1542e Mon Sep 17 00:00:00 2001
From: Max Cantor <mxcantor@gmail.com>
Date: Thu, 30 Jun 2011 01:54:02 -0700
Subject: [PATCH] added touch command

---
 scaffold.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scaffold.hs b/scaffold.hs
index 9df2a419..49f68ea2 100644
--- a/scaffold.hs
+++ b/scaffold.hs
@@ -13,7 +13,7 @@ import qualified Data.Text.Lazy.Encoding as LT
 import Control.Monad (when, unless)
 import System.Environment (getArgs)
 
-import Scaffold.Build (build)
+import Scaffold.Build (build, touch)
 import Scaffold.Devel (devel)
 
 qq :: String
@@ -38,12 +38,14 @@ main = do
     case args of
         ["init"] -> scaffold
         ["build"] -> build
+        ["touch"] -> touch
         ["devel"] -> devel
         _ -> do
             putStrLn "Usage: yesod <command>"
             putStrLn "Available commands:"
             putStrLn "    init         Scaffold a new site"
             putStrLn "    build        Build project (performs TH dependency analysis)"
+            putStrLn "    touch        Touch any files with altered TH dependencies but do not build"
             putStrLn "    devel        Run project with the devel server"
 
 puts :: String -> IO ()