From 041ec5c3096684d045637ddd72741192b9050e36 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Mon, 4 Apr 2011 22:58:43 +0200
Subject: [PATCH] Add getIdentifiers

---
 src/Hakyll/Core/Compiler.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/Hakyll/Core/Compiler.hs b/src/Hakyll/Core/Compiler.hs
index 371594f..bd78adf 100644
--- a/src/Hakyll/Core/Compiler.hs
+++ b/src/Hakyll/Core/Compiler.hs
@@ -89,6 +89,7 @@ module Hakyll.Core.Compiler
     ( Compiler
     , runCompiler
     , getIdentifier
+    , getIdentifiers
     , getRoute
     , getRouteFor
     , getResourceString
@@ -165,6 +166,13 @@ runCompiler compiler identifier provider routes store modified logger = do
 getIdentifier :: Compiler a Identifier
 getIdentifier = fromJob $ const $ CompilerM $ compilerIdentifier <$> ask
 
+-- | Get all identifiers matching the given pattern
+--
+getIdentifiers :: Pattern -> Compiler a [Identifier]
+getIdentifiers pattern = fromJob $ const $ CompilerM $
+    matches pattern . map unResource . resourceList
+                    . compilerResourceProvider <$> ask
+
 -- | Get the route we are using for this item
 --
 getRoute :: Compiler a (Maybe FilePath)