Fix partials and add a test

Fixes #460

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
+        p             <- applyExpr e >>= getString e
-        tpl' <- loadBody (fromFilePath p)
+        Template tpl' <- loadBody (fromFilePath p)
         applyTemplate' tpl' context x
 
     ---------------------------------------------------------------------------

tests/Hakyll/Core/Runtime/Tests.hs

@@ -41,6 +41,15 @@ case01 = do
                     >>= saveSnapshot "raw"
                     >>= renderPandoc
 
+        match (fromList ["partial.html", "partial-helper.html"]) $
+            compile templateCompiler
+        create ["partial.html.out"] $ do
+            route idRoute
+            compile $ do
+                example <- loadSnapshotBody "example.md" "raw"
+                makeItem example
+                    >>= loadAndApplyTemplate "partial.html" defaultContext
+
         create ["bodies.txt"] $ do
             route idRoute
             compile $ do
@@ -60,6 +69,10 @@ case01 = do
     bodies <- readFile $ destinationDirectory testConfiguration </> "bodies.txt"
     head (lines bodies) @?=  "This is an example."
 
+    partial  <- readFile $ providerDirectory    testConfiguration </> "partial.html.out"
+    partial' <- readFile $ destinationDirectory testConfiguration </> "partial.html.out"
+    partial @?= partial'
+
     cleanTestEnv
 
 

tests/data/partial-helper.html

@@ -0,0 +1,3 @@
+<p>This is an included partial.</p>
+
+$body$

tests/data/partial.html

@@ -0,0 +1,3 @@
+<p>This is a file that includes a partial.</p>
+
+$partial("partial-helper.html")$

tests/data/partial.html.out

@@ -0,0 +1,7 @@
+<p>This is a file that includes a partial.</p>
+
+<p>This is an included partial.</p>
+
+This is an example.
+
+