diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2014-10-27 12:20:31 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2014-10-27 12:20:31 +0100 |
| commit | 59b6f01218eb2fbd36cb9fec6a3413093171ccda (patch) | |
| tree | c2cdb693c03639bf02ef79c7336e911e4aa58d06 /tests/Hakyll/Web | |
| parent | 8bc18c7fd64fe5c0354c3ac9a4cd12bf3a46cb17 (diff) | |
| download | hakyll-59b6f01218eb2fbd36cb9fec6a3413093171ccda.tar.gz | |
Better functions in templates
Diffstat (limited to 'tests/Hakyll/Web')
| -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>"] |