Update brochure example code

1 files changed, 5 insertions, 7 deletions

diff --git a/examples/brochure/hakyll.hs b/examples/brochure/hakyll.hs
index e298670..f33b37d 100644
--- a/examples/brochure/hakyll.hs
+++ b/examples/brochure/hakyll.hs
@@ -1,6 +1,5 @@
 {-# LANGUAGE OverloadedStrings #-}
 import Control.Arrow ((>>>))
-import Control.Monad (forM_)
 
 import Hakyll
 
@@ -16,9 +15,8 @@ main = hakyll $ do
 
     match "templates/*" $ compile templateCompiler
 
-    forM_ ["about.rst", "index.markdown", "code.lhs"] $ \page ->
-        match page $ do
-            route   $ setExtension "html"
-            compile $ pageCompiler
-                >>> applyTemplateCompiler "templates/default.html"
-                >>> relativizeUrlsCompiler
+    match (list ["about.rst", "index.markdown", "code.lhs"]) $ do
+        route   $ setExtension "html"
+        compile $ pageCompiler
+            >>> applyTemplateCompiler "templates/default.html"
+            >>> relativizeUrlsCompiler