diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-26 13:21:27 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-26 13:21:27 +0100 |
commit | 9939708c66a1a9efe4721d8f7d367c847b7db2a2 (patch) | |
tree | 7ed67a8c47f8acebbab7c253cfe8927bff516bf3 /src/Hakyll | |
parent | bd5f6ca5791ab62e7f0753e993e3455cfc9579ba (diff) | |
download | hakyll-9939708c66a1a9efe4721d8f7d367c847b7db2a2.tar.gz |
Consistent naming: target vs compiler
Diffstat (limited to 'src/Hakyll')
-rw-r--r-- | src/Hakyll/Core/Compiler.hs | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/src/Hakyll/Core/Compiler.hs b/src/Hakyll/Core/Compiler.hs index 70006e9..4e8b642 100644 --- a/src/Hakyll/Core/Compiler.hs +++ b/src/Hakyll/Core/Compiler.hs @@ -7,8 +7,7 @@ module Hakyll.Core.Compiler , Compiler , runCompiler , require - , target - , targetFromString + , compileFromString ) where import Control.Arrow (second) @@ -76,14 +75,9 @@ require identifier = do addDependency identifier return $ TargetM $ flip targetDependencyLookup identifier <$> ask --- | Construct a target inside a compiler --- -target :: TargetM a a -> Compiler a -target = return - -- | Construct a target from a string, this string being the content of the -- resource. -- -targetFromString :: (String -> TargetM a a) -- ^ Function to create the target - -> Compiler a -- ^ Resulting compiler -targetFromString = target . (getResourceString >>=) +compileFromString :: (String -> TargetM a a) -- ^ Function to create the target + -> Compiler a -- ^ Resulting compiler +compileFromString = return . (getResourceString >>=) |