diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-26 12:31:15 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-26 12:31:15 +0100 |
commit | 7f4b5e542c3f96bc05e329f846b80661b394be90 (patch) | |
tree | 97cfc09be864b7421ae91e9c2f5f749a126fe6c8 | |
parent | 36ec2c15b8dece790e4a5e02dc9a4bd1782c7a5f (diff) | |
download | hakyll-7f4b5e542c3f96bc05e329f846b80661b394be90.tar.gz |
Add getIdentifier function in target
-rw-r--r-- | src/Hakyll/Core/Target.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/Hakyll/Core/Target.hs b/src/Hakyll/Core/Target.hs index 215a53b..b8740bc 100644 --- a/src/Hakyll/Core/Target.hs +++ b/src/Hakyll/Core/Target.hs @@ -6,6 +6,7 @@ module Hakyll.Core.Target , TargetM , Target , runTarget + , getIdentifier , getResourceString ) where @@ -13,13 +14,19 @@ import Control.Applicative ((<$>)) import Control.Monad.Reader (ask) import Control.Monad.Trans (liftIO) +import Hakyll.Core.Identifier import Hakyll.Core.Target.Internal import Hakyll.Core.ResourceProvider +-- | Get the current identifier +-- +getIdentifier :: TargetM a Identifier +getIdentifier = TargetM $ targetIdentifier <$> ask + -- | Get the resource content as a string -- getResourceString :: TargetM a String getResourceString = TargetM $ do provider <- targetResourceProvider <$> ask - identifier <- targetIdentifier <$> ask + identifier <- unTargetM getIdentifier liftIO $ resourceString provider identifier |