@@ -3,7 +3,8 @@ import Text.Hakyll.Render
3import Text.Hakyll.Renderables
3import Text.Hakyll.Renderables
4import Text.Hakyll.File
4import Text.Hakyll.File
5import Text.Hakyll.Regex
5import Text.Hakyll.Regex
6−
6+import Control.Monad.Reader (liftIO)
7+import System.Directory
7import Control.Monad (mapM_, liftM)
8import Control.Monad (mapM_, liftM)
8import Data.List (sort)
9import Data.List (sort)
@@ -13,7 +14,7 @@ main = hakyll $ do
13 directory static "examples"
14 directory static "examples"
14 directory static "reference"
15 directory static "reference"
16− tutorials <- liftM (sort . filter (`matchesRegex` "tutorial[0-9]*.markdown")) $ getRecursiveContents "."
17+ tutorials <- liftIO $ liftM (sort . filter (`matchesRegex` "tutorial[0-9]*.markdown")) $ getDirectoryContents "."
17 let tutorialList = renderAndConcat ["templates/tutorialitem.html"]
18 let tutorialList = renderAndConcat ["templates/tutorialitem.html"]
18 (map createPagePath tutorials)
19 (map createPagePath tutorials)
19 tutorialPage = createCustomPage "tutorials.html"
20 tutorialPage = createCustomPage "tutorials.html"