From 664111c00178039c5a68f62da7612fb04b25927c Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Fri, 5 Mar 2010 12:22:09 +0100 Subject: Simplified css and static code. --- src/Text/Hakyll/Internal/Render.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'src/Text/Hakyll/Internal') diff --git a/src/Text/Hakyll/Internal/Render.hs b/src/Text/Hakyll/Internal/Render.hs index 739db7a..5432f4d 100644 --- a/src/Text/Hakyll/Internal/Render.hs +++ b/src/Text/Hakyll/Internal/Render.hs @@ -10,7 +10,6 @@ module Text.Hakyll.Internal.Render import qualified Data.Map as M import Control.Monad.Reader (liftIO) import Data.Maybe (fromMaybe) -import System.IO (hPutStrLn, stderr) import Text.Hakyll.Context (Context, ContextManipulation) import Text.Hakyll.File @@ -42,6 +41,4 @@ writePage = createRenderAction $ \initialContext -> do destination <- toDestination url makeDirectories destination     -- Substitute $root here, just before writing. - liftIO $ do - writeFile destination $ finalSubstitute (fromString body) context - hPutStrLn stderr $ "Writing " ++ destination + liftIO $ writeFile destination $ finalSubstitute (fromString body) context -- cgit v1.2.3