diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2009-12-04 11:51:41 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2009-12-04 11:51:41 +0100 |
| commit | cd90c29c18cdca463dcdc8191b5ba0e0478cd64c (patch) | |
| tree | 6ec3500dc42f9b63c9887b58b207368ad284aba7 /src/Text/Hakyll/Render.hs | |
| parent | 8cc0cb94fc913b882d71a41d8c65c19451a80b5f (diff) | |
| download | hakyll-cd90c29c18cdca463dcdc8191b5ba0e0478cd64c.tar.gz | |
Switched to ByteStrings for efficiency reasons.
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 54df1b4..2d09d42 100644 --- a/src/Text/Hakyll/Render.hs +++ b/src/Text/Hakyll/Render.hs @@ -22,7 +22,7 @@ toDestination path = "_site" </> path createContext :: Page -> Context createContext = M.fromList . map packPair . M.toList - where packPair (a, b) = (B.pack a, B.pack b) + where packPair (a, b) = (B.pack a, b) renderPage :: FilePath -> Page -> IO Page renderPage templatePath page = do @@ -37,7 +37,7 @@ renderAndWrite templatePath page = do rendered <- renderPage templatePath page let destination = toDestination $ getURL rendered makeDirectories destination - writeFile destination (getBody rendered) + B.writeFile destination (getBody rendered) static :: FilePath -> IO () static source = do |