diff options
Diffstat (limited to 'tests/Hakyll')
| -rw-r--r-- | tests/Hakyll/Web/Template/Context/Tests.hs | 2 | ||||
| -rw-r--r-- | tests/Hakyll/Web/Template/Tests.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/Hakyll/Web/Template/Context/Tests.hs b/tests/Hakyll/Web/Template/Context/Tests.hs index 627624f..5f77dad 100644 --- a/tests/Hakyll/Web/Template/Context/Tests.hs +++ b/tests/Hakyll/Web/Template/Context/Tests.hs @@ -51,7 +51,7 @@ testContextDone :: Store -> Provider -> Identifier -> String testContextDone store provider identifier key context = testCompilerDone store provider identifier $ do item <- getResourceBody - cf <- unContext context key item + cf <- unContext context key [] item case cf of StringField str -> return str ListField _ _ -> error $ diff --git a/tests/Hakyll/Web/Template/Tests.hs b/tests/Hakyll/Web/Template/Tests.hs index 8763147..8baf01b 100644 --- a/tests/Hakyll/Web/Template/Tests.hs +++ b/tests/Hakyll/Web/Template/Tests.hs @@ -76,4 +76,4 @@ testApplyJoinTemplateList = do where i1 = Item "item1" "Hello" i2 = Item "item2" "World" - tpl = Template [Chunk "<b>", Key "body", Chunk "</b>"] + tpl = Template [Chunk "<b>", Expr (Ident "body"), Chunk "</b>"] |