From fdb298d6a22dbab32d5da6c653b600d1b8f93143 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Thu, 4 Aug 2016 14:13:24 +0200 Subject: Fix partials and add a test Fixes #460 --- src/Hakyll/Web/Template/Internal.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Hakyll/Web/Template') diff --git a/src/Hakyll/Web/Template/Internal.hs b/src/Hakyll/Web/Template/Internal.hs index 3686914..d0e4d47 100644 --- a/src/Hakyll/Web/Template/Internal.hs +++ b/src/Hakyll/Web/Template/Internal.hs @@ -138,8 +138,8 @@ applyTemplate' tes context x = go tes return $ intercalate sep bs applyElem (Partial e) = do - p <- applyExpr e >>= getString e - tpl' <- loadBody (fromFilePath p) + p <- applyExpr e >>= getString e + Template tpl' <- loadBody (fromFilePath p) applyTemplate' tpl' context x --------------------------------------------------------------------------- -- cgit v1.2.3