yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add getIdentifiers

Browse source
This commit is contained in:
Jasper Van der Jeugt 2011-04-04 22:58:43 +02:00
parent 8b5347eb26
commit 041ec5c309
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Hakyll/Core/Compiler.hs
View file

@ -89,6 +89,7 @@ module Hakyll.Core.Compiler
( Compiler ( Compiler
, runCompiler , runCompiler
, getIdentifier , getIdentifier
, getIdentifiers
, getRoute , getRoute
, getRouteFor , getRouteFor
, getResourceString , getResourceString
@ -165,6 +166,13 @@ runCompiler compiler identifier provider routes store modified logger = do
getIdentifier :: Compiler a Identifier getIdentifier :: Compiler a Identifier
getIdentifier = fromJob $ const $ CompilerM $ compilerIdentifier <$> ask 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 -- | Get the route we are using for this item
-- --
getRoute :: Compiler a (Maybe FilePath) getRoute :: Compiler a (Maybe FilePath)