diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2009-12-03 14:14:48 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2009-12-03 14:14:48 +0100 |
| commit | 3d21d02d65ae809e5a6c117272bc2418226220c9 (patch) | |
| tree | 3e4c0293b58aaa4f4152a9ccc3938f714ef08bfd /src/Text/Hakyll/Render.hs | |
| parent | b7e01c4ca47dc01e7f4f695214d57a3a9f9e1deb (diff) | |
| download | hakyll-3d21d02d65ae809e5a6c117272bc2418226220c9.tar.gz | |
Commented Text.Hakyll.Util.
Diffstat (limited to 'src/Text/Hakyll/Render.hs')
| -rw-r--r-- | src/Text/Hakyll/Render.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Hakyll/Render.hs b/src/Text/Hakyll/Render.hs index a36ff7c..2ff1b93 100644 --- a/src/Text/Hakyll/Render.hs +++ b/src/Text/Hakyll/Render.hs @@ -33,12 +33,12 @@ renderAndWrite :: FilePath -> Page -> IO () renderAndWrite templatePath page = do rendered <- renderPage templatePath page let destination = toDestination $ getURL rendered - touchDirectories destination + makeDirectories destination writeFile destination (getBody rendered) static :: FilePath -> IO () static source = do - touchDirectories destination + makeDirectories destination copyFile source destination where destination = toDestination source |