blob: 974cacba00052ae0e48bd67dd63b6d9147107a0b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
--------------------------------------------------------------------------------
module Main
( main
) where
--------------------------------------------------------------------------------
import System.Directory (copyFile)
--------------------------------------------------------------------------------
import Hakyll.Core.Util.File
import Paths_hakyll
--------------------------------------------------------------------------------
main :: IO ()
main = do
let dstDir = "."
srcDir <- getDataFileName "example"
files <- getRecursiveContents srcDir
print files
return ()
|