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 Control.Monad (when, unless)
import System.Environment (getArgs) import System.Environment (getArgs)
import Scaffold.Build (build) import Scaffold.Build (build, touch)
import Scaffold.Devel (devel) import Scaffold.Devel (devel)
qq :: String qq :: String
@ -38,12 +38,14 @@ main = do
case args of case args of
["init"] -> scaffold ["init"] -> scaffold
["build"] -> build ["build"] -> build
["touch"] -> touch
["devel"] -> devel ["devel"] -> devel
_ -> do _ -> do
putStrLn "Usage: yesod <command>" putStrLn "Usage: yesod <command>"
putStrLn "Available commands:" putStrLn "Available commands:"
putStrLn " init Scaffold a new site" putStrLn " init Scaffold a new site"
putStrLn " build Build project (performs TH dependency analysis)" 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" putStrLn " devel Run project with the devel server"
puts :: String -> IO () puts :: String -> IO ()