summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rw-r--r--examples/hakyll/hakyll.hs5
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"