@@ -7,8 +7,7 @@ module Hakyll.Core.Compiler
77 , Compiler
88 , runCompiler
99 , require
10− , target
11− , targetFromString
10+ , compileFromString
1211 ) where
1312
1413import Control.Arrow (second)
@@ -76,14 +75,9 @@ require identifier = do
7675 addDependency identifier
7776 return $ TargetM $ flip targetDependencyLookup identifier <$> ask
7877
79−-- | Construct a target inside a compiler
80−--
81−target :: TargetM a a -> Compiler a
82−target = return
83−
8478-- | Construct a target from a string, this string being the content of the
8579-- resource.
8680--
87−targetFromString :: (String -> TargetM a a) -- ^ Function to create the target
88− -> Compiler a -- ^ Resulting compiler
89−targetFromString = target . (getResourceString >>=)
81+compileFromString :: (String -> TargetM a a) -- ^ Function to create the target
82+ -> Compiler a -- ^ Resulting compiler
83+compileFromString = return . (getResourceString >>=)