From f6f7cde03c4f28657c720cc3f7ae02a52aa3ceb4 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Tue, 24 May 2011 14:39:21 +0200
Subject: Return information in rules

---
 src/Hakyll/Core/Identifier/Pattern.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/Hakyll/Core/Identifier')

diff --git a/src/Hakyll/Core/Identifier/Pattern.hs b/src/Hakyll/Core/Identifier/Pattern.hs
index e1025ed..6bbfad8 100644
--- a/src/Hakyll/Core/Identifier/Pattern.hs
+++ b/src/Hakyll/Core/Identifier/Pattern.hs
@@ -36,6 +36,7 @@ module Hakyll.Core.Identifier.Pattern
     , castPattern
     , parseGlob
     , predicate
+    , list
     , regex
     , inGroup
     , matches
@@ -106,6 +107,11 @@ parseGlob = Glob . parse'
 predicate :: (Identifier a -> Bool) -> Pattern a
 predicate = Predicate
 
+-- | Create a 'Pattern' from a list of 'Identifier's it should match
+--
+list :: [Identifier a] -> Pattern a
+list = List
+
 -- | Create a 'Pattern' from a regex
 --
 -- Example:
-- 
cgit v1.2.3