From 18b6ac5ad42e50e75b9ee9fcfc8aef00f5a00957 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 6 Jan 2013 09:51:09 +0100 Subject: Add create in addition to match --- src/Hakyll/Core/Rules/Internal.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Hakyll/Core/Rules') diff --git a/src/Hakyll/Core/Rules/Internal.hs b/src/Hakyll/Core/Rules/Internal.hs index 825edf4..10ca919 100644 --- a/src/Hakyll/Core/Rules/Internal.hs +++ b/src/Hakyll/Core/Rules/Internal.hs @@ -34,7 +34,7 @@ import Hakyll.Core.Routes -------------------------------------------------------------------------------- data RulesRead = RulesRead { rulesProvider :: Provider - , rulesPattern :: Pattern + , rulesMatches :: [Identifier] , rulesVersion :: Maybe String } @@ -96,7 +96,7 @@ runRules rules provider = do where env = RulesRead { rulesProvider = provider - , rulesPattern = mempty + , rulesMatches = [] , rulesVersion = Nothing } -- cgit v1.2.3