From 98d712fc3a96b0b44cde389a1db9c21d76130964 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Wed, 20 Jan 2010 18:38:33 +0100 Subject: Fixed bug in hakyll site. --- examples/hakyll/hakyll.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'examples') diff --git a/examples/hakyll/hakyll.hs b/examples/hakyll/hakyll.hs index 76d95d6..92e52df 100644 --- a/examples/hakyll/hakyll.hs +++ b/examples/hakyll/hakyll.hs @@ -3,7 +3,8 @@ import Text.Hakyll.Render import Text.Hakyll.Renderables import Text.Hakyll.File import Text.Hakyll.Regex - +import Control.Monad.Reader (liftIO) +import System.Directory import Control.Monad (mapM_, liftM) import Data.List (sort) @@ -13,7 +14,7 @@ main = hakyll $ do directory static "examples" directory static "reference" - tutorials <- liftM (sort . filter (`matchesRegex` "tutorial[0-9]*.markdown")) $ getRecursiveContents "." + tutorials <- liftIO $ liftM (sort . filter (`matchesRegex` "tutorial[0-9]*.markdown")) $ getDirectoryContents "." let tutorialList = renderAndConcat ["templates/tutorialitem.html"] (map createPagePath tutorials) tutorialPage = createCustomPage "tutorials.html" -- cgit v1.2.3