@@ -3,7 +3,8 @@ import Text.Hakyll.Render
33import Text.Hakyll.Renderables
44import Text.Hakyll.File
55import Text.Hakyll.Regex
6−
6+import Control.Monad.Reader (liftIO)
7+import System.Directory
78import Control.Monad (mapM_, liftM)
89import Data.List (sort)
910
@@ -13,7 +14,7 @@ main = hakyll $ do
1314 directory static "examples"
1415 directory static "reference"
1516
16− tutorials <- liftM (sort . filter (`matchesRegex` "tutorial[0-9]*.markdown")) $ getRecursiveContents "."
17+ tutorials <- liftIO $ liftM (sort . filter (`matchesRegex` "tutorial[0-9]*.markdown")) $ getDirectoryContents "."
1718 let tutorialList = renderAndConcat ["templates/tutorialitem.html"]
1819 (map createPagePath tutorials)
1920 tutorialPage = createCustomPage "tutorials.html"