diff options
| -rw-r--r-- | examples/hakyll/hakyll.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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" |