git.iko.soy/hakyll
on 2912fcd help sign in
hakyll/src/Hakyll/Init.hs
37 lines 1.2 kB history raw
1--------------------------------------------------------------------------------
2module Main
3 ( main
4 ) where
7--------------------------------------------------------------------------------
8import Control.Monad (forM_)
9import System.Directory (copyFile)
10import System.Environment (getArgs, getProgName)
11import System.Exit (exitFailure)
12import System.FilePath ((</>))
15--------------------------------------------------------------------------------
16import Hakyll.Core.Util.File
17import Paths_hakyll
20--------------------------------------------------------------------------------
21main :: IO ()
22main = do
23 progName <- getProgName
24 args <- getArgs
25 srcDir <- getDataFileName "example"
26 files <- getRecursiveContents srcDir
28 case args of
29 [dstDir] -> forM_ files $ \file -> do
30 let dst = dstDir </> file
31 src = srcDir </> file
32 putStrLn $ "Creating " ++ dst
33 makeDirectories dst
34 copyFile src dst
35 _ -> do
36 putStrLn $ "Usage: " ++ progName ++ " <directory>"
37 exitFailure