src/Hakyll/Init.hs · hakyll

on 030a5fe help sign in

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 (const $ return False) 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