haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added touch command

Browse Source
This commit is contained in:
Max Cantor 2011-06-30 01:54:02 -07:00
parent 97086f2bdd
commit 0a65be849e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scaffold.hs
View File

@ -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 ()