git.iko.soy/hakyll
on master help sign in
I have this huge hangover
7d20671Jasper Van der Jeugt
src/Hakyll/Init.hs+19−5
compare with master
unifiedsplit
@@ -5,7 +5,11 @@ module Main
5
5
6
6
7--------------------------------------------------------------------------------
7--------------------------------------------------------------------------------
8+import Control.Monad (forM_)
8import System.Directory (copyFile)
9import System.Directory (copyFile)
10+import System.Environment (getArgs, getProgName)
11+import System.Exit (exitFailure)
12+import System.FilePath ((</>))
9
13
10
14
11--------------------------------------------------------------------------------
15--------------------------------------------------------------------------------
@@ -16,8 +20,18 @@ import Paths_hakyll
16--------------------------------------------------------------------------------
20--------------------------------------------------------------------------------
17main :: IO ()
21main :: IO ()
18main = do
22main = do
19− let dstDir = "."
23+ progName <- getProgName
24+ args <- getArgs
20− srcDir <- getDataFileName "example"
25+ srcDir <- getDataFileName "example"
21− files <- getRecursiveContents srcDir
26+ files <- getRecursiveContents srcDir
22− print files
27+
23− return ()
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