diff options
Diffstat (limited to 'src/Hakyll/Core/Compiler.hs')
| -rw-r--r-- | src/Hakyll/Core/Compiler.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Hakyll/Core/Compiler.hs b/src/Hakyll/Core/Compiler.hs index a2875ba..5a1741c 100644 --- a/src/Hakyll/Core/Compiler.hs +++ b/src/Hakyll/Core/Compiler.hs @@ -105,11 +105,11 @@ fromCompilerM :: (a -> CompilerM b) -> Compiler a b fromCompilerM = Compiler (return S.empty) -getIdentifier :: Compiler () Identifier +getIdentifier :: Compiler a Identifier getIdentifier = fromCompilerM $ const $ CompilerM $ compilerIdentifier <$> ask -getResourceString :: Compiler () String +getResourceString :: Compiler a String getResourceString = getIdentifier >>> getResourceString' where getResourceString' = fromCompilerM $ \id' -> CompilerM $ do |