@@ -125,17 +125,31 @@ renderChainWith manipulation templatePaths initial =
125-- | Mark a certain file as static, so it will just be copied when the site is
125-- | Mark a certain file as static, so it will just be copied when the site is
126-- generated.
126-- generated.
127static :: FilePath -> Hakyll ()
127static :: FilePath -> Hakyll ()
128−static source = do destination <- toDestination source
128+static source = runRenderAction static'
129− depends destination [source] (action destination)
130+ static' = RenderAction
131+ { actionDependencies = [source]
132+ , actionUrl = Just $ return source
133+ , actionFunction = actionFunction'
136+ actionFunction' _ = do
137+ destination <- toDestination source
131− action destination = do makeDirectories destination
138+ makeDirectories destination
132− liftIO $ copyFile source destination
139+ liftIO $ copyFile source destination
134-- | Render a css file, compressing it.
141-- | Render a css file, compressing it.
135css :: FilePath -> Hakyll ()
142css :: FilePath -> Hakyll ()
136−css source = do destination <- toDestination source
143+css source = runRenderAction css'
137− depends destination [source] (css' destination)
146+ { actionDependencies = [source]
147+ , actionUrl = Just $ return source
148+ , actionFunction = actionFunction'
151+ actionFunction' _ = do
139− css' destination = do contents <- liftIO $ readFile source
152+ contents <- liftIO $ readFile source
153+ destination <- toDestination source
140− makeDirectories destination
154+ makeDirectories destination
141− liftIO $ writeFile destination (compressCss contents)
155+ liftIO $ writeFile destination (compressCss contents)