2012-12-05 22:29:42 +00:00
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
module Main
|
|
|
|
( main
|
|
|
|
) where
|
|
|
|
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
2012-12-06 12:41:16 +00:00
|
|
|
import Control.Monad (forM_)
|
2012-12-05 22:29:42 +00:00
|
|
|
import System.Directory (copyFile)
|
2012-12-06 12:41:16 +00:00
|
|
|
import System.Environment (getArgs, getProgName)
|
|
|
|
import System.Exit (exitFailure)
|
|
|
|
import System.FilePath ((</>))
|
2012-12-05 22:29:42 +00:00
|
|
|
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
import Hakyll.Core.Util.File
|
|
|
|
import Paths_hakyll
|
|
|
|
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
main :: IO ()
|
|
|
|
main = do
|
2012-12-06 12:41:16 +00:00
|
|
|
progName <- getProgName
|
|
|
|
args <- getArgs
|
|
|
|
srcDir <- getDataFileName "example"
|
|
|
|
files <- getRecursiveContents srcDir
|
|
|
|
|
|
|
|
case args of
|
|
|
|
[dstDir] -> forM_ files $ \file -> do
|
|
|
|
let dst = dstDir </> file
|
|
|
|
src = srcDir </> file
|
|
|
|
putStrLn $ "Creating " ++ dst
|
|
|
|
makeDirectories dst
|
|
|
|
copyFile src dst
|
|
|
|
_ -> do
|
|
|
|
putStrLn $ "Usage: " ++ progName ++ " <directory>"
|
|
|
|
exitFailure
|