Prototype Run module

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