diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-18 09:11:43 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-18 09:11:43 +0100 |
| commit | 673ed68b8fd41c9420d353e6efd11d5405e53360 (patch) | |
| tree | 22779097e4a22814b8aa57a2981986a658e4d1e9 /src/Text/Hakyll/Render/Internal.hs | |
| parent | 8b668b394009cb2bcc96dd45abe255f63acc0963 (diff) | |
| download | hakyll-673ed68b8fd41c9420d353e6efd11d5405e53360.tar.gz | |
Added UTF8 where nessecary.
Diffstat (limited to 'src/Text/Hakyll/Render/Internal.hs')
| -rw-r--r-- | src/Text/Hakyll/Render/Internal.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Hakyll/Render/Internal.hs b/src/Text/Hakyll/Render/Internal.hs index d4c1697..b6810bb 100644 --- a/src/Text/Hakyll/Render/Internal.hs +++ b/src/Text/Hakyll/Render/Internal.hs @@ -16,6 +16,7 @@ import Data.List (isPrefixOf, foldl') import Data.Char (isAlpha) import Data.Maybe (fromMaybe) import Control.Parallel.Strategies (rdeepseq, ($|)) +import qualified System.IO.UTF8 as U import Text.Hakyll.Renderable import Text.Hakyll.Page @@ -89,6 +90,6 @@ writePage page = do context = additionalContext' `M.union` (M.singleton "root" $ toRoot url) makeDirectories destination -- Substitute $root here, just before writing. - liftIO $ writeFile destination $ finalSubstitute (getBody page) context + liftIO $ U.writeFile destination $ finalSubstitute (getBody page) context where url = getURL page |