diff options
Diffstat (limited to 'src/Hakyll/Core/Target.hs')
-rw-r--r-- | src/Hakyll/Core/Target.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/Hakyll/Core/Target.hs b/src/Hakyll/Core/Target.hs index 1f783df..215a53b 100644 --- a/src/Hakyll/Core/Target.hs +++ b/src/Hakyll/Core/Target.hs @@ -6,6 +6,20 @@ module Hakyll.Core.Target , TargetM , Target , runTarget + , getResourceString ) where +import Control.Applicative ((<$>)) +import Control.Monad.Reader (ask) +import Control.Monad.Trans (liftIO) + import Hakyll.Core.Target.Internal +import Hakyll.Core.ResourceProvider + +-- | Get the resource content as a string +-- +getResourceString :: TargetM a String +getResourceString = TargetM $ do + provider <- targetResourceProvider <$> ask + identifier <- targetIdentifier <$> ask + liftIO $ resourceString provider identifier |