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

---
 Scaffold/Build.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/Scaffold/Build.hs b/Scaffold/Build.hs
index 2c7d4e95..e479b6a0 100644
--- a/Scaffold/Build.hs
+++ b/Scaffold/Build.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Scaffold.Build
     ( build
+    , touch
     , getDeps
     , touchDeps
     , findHaskellFiles
@@ -27,6 +28,14 @@ import Data.Text (unpack)
 import Control.Monad (filterM)
 import Control.Exception (SomeException, try)
 
+-- | Touch any files with altered dependencies but do not build
+touch :: IO ()
+touch = do
+    hss <- findHaskellFiles "."
+    deps' <- mapM determineHamletDeps hss
+    let deps = fixDeps $ zip hss deps'
+    touchDeps deps
+
 build :: IO ()
 build = do
     {-