@@ -4,7 +4,6 @@ module Main where
44import Prelude hiding (id)
55import Control.Arrow ((>>>), (***), arr)
66import Control.Category (id)
7−import Control.Monad (forM_)
87import qualified Data.Map as M
98import Data.Monoid (mempty, mconcat)
109
@@ -61,6 +60,7 @@ main = hakyll $ do
6160 route "rss.xml" $ idRoute
6261 create "rss.xml" $
6362 requireAll_ "posts/*"
63+ >>> mapCompiler (arr $ copyBodyToField "description")
6464 >>> renderRss feedConfiguration
6565
6666 -- Read templates