@@ -6,6 +6,7 @@ module Hakyll.Core.Target
66 , TargetM
77 , Target
88 , runTarget
9+ , getIdentifier
910 , getResourceString
1011 ) where
1112
@@ -13,13 +14,19 @@ import Control.Applicative ((<$>))
1314import Control.Monad.Reader (ask)
1415import Control.Monad.Trans (liftIO)
1516
17+import Hakyll.Core.Identifier
1618import Hakyll.Core.Target.Internal
1719import Hakyll.Core.ResourceProvider
1820
21+-- | Get the current identifier
22+--
23+getIdentifier :: TargetM a Identifier
24+getIdentifier = TargetM $ targetIdentifier <$> ask
25+
1926-- | Get the resource content as a string
2027--
2128getResourceString :: TargetM a String
2229getResourceString = TargetM $ do
2330 provider <- targetResourceProvider <$> ask
24− identifier <- targetIdentifier <$> ask
31+ identifier <- unTargetM getIdentifier
2532 liftIO $ resourceString provider identifier