yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Easier commands.

Browse source
This commit is contained in:
Jasper Van der Jeugt 2009-12-27 19:12:34 +01:00
parent b6c8198796
commit 3221ff61fb
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/Text/Hakyll.hs
View file

@ -11,11 +11,11 @@ import System.Directory (doesDirectoryExist, removeDirectoryRecursive)
hakyll :: IO () -> IO ()
hakyll action = do
args <- getArgs
case args of [] -> action
["--clean"] -> clean
["--server", p] -> server (read p)
["--server"] -> server 8000
_ -> help
case args of [] -> action
["clean"] -> clean
["server", p] -> server (read p)
["server"] -> server 8000
_ -> help
-- | Clean up directories.
clean :: IO ()
@ -34,9 +34,9 @@ help = do
++ "\n"
++ "Usage:\n"
++ name ++ " Generate the site.\n"
++ name ++ " --clean Clean up and remove cache.\n"
++ name ++ " --help Show this message.\n"
++ name ++ " --server [port] Run a local test server.\n"
++ name ++ " clean Clean up and remove cache.\n"
++ name ++ " help Show this message.\n"
++ name ++ " server [port] Run a local test server.\n"
server :: Integer -> IO ()
server p = do simpleServer (fromIntegral $ p)