@@ -0,0 +1,41 @@
1+{-# LANGUAGE OverloadedStrings #-}
2+{-# OPTIONS_GHC -fno-warn-unused-do-bind #-}
3+module Hakyll.Core.Rules.Tests
4+ where
5+
6+import qualified Data.Map as M
7+
8+import Test.Framework
9+
10+import Hakyll.Core.Rules
11+import Hakyll.Core.Identifier
12+import Hakyll.Core.Routes
13+import Hakyll.Core.Compiler
14+import Hakyll.Core.Resource.Provider
15+import Hakyll.Core.Resource.Provider.Dummy
16+import Hakyll.Web.Page
17+
18+-- | Dummy resource provider
19+--
20+provider :: IO ResourceProvider
21+provider = dummyResourceProvider $ M.fromList $ map (flip (,) "No content")
22+ [ "posts/a-post.markdown"
23+ , "posts/some-other-post.markdown"
24+ ]
25+
26+-- | Example rules
27+--
28+rules :: Rules
29+rules = do
30+ -- Compile some posts
31+ match "posts/*" $ do
32+ route $ setExtension "html"
33+ compile pageCompiler
34+
35+ -- Compile them, raw
36+ group "raw" $ do
37+ match "posts/*" $ do
38+ route $ setExtension "html"
39+ compile getResourceString
40+
41+ return ()