@@ -2,20 +2,19 @@ import Text.Hakyll
22import Text.Hakyll.Render
33import Text.Hakyll.Renderables
44import Text.Hakyll.File
5+import Text.Hakyll.Regex
56
67import Control.Monad (mapM_, liftM)
78import Data.List (sort)
89
9−import Text.Regex.Posix
10−
11−main = hakyll $ do
10+main = hakyll defaultHakyllConfiguration $ do
1211 directory css "css"
1312 directory static "images"
1413 directory static "examples"
1514 directory static "reference"
1615
17− tutorials <- liftM (sort . filter (=~ "tutorial[0-9]*.markdown")) $ getRecursiveContents "."
18− let tutorialList = renderAndConcat "templates/tutorialitem.html"
16+ tutorials <- liftM (sort . filter (`matchesRegex` "tutorial[0-9]*.markdown")) $ getRecursiveContents "."
17+ let tutorialList = renderAndConcat ["templates/tutorialitem.html"]
1918 (map createPagePath tutorials)
2019 tutorialPage = createCustomPage "tutorials.html"
2120 ("templates/tutorialitem.html" : tutorials)