simplify.hs

-- tsDefaultCompiler :: [Identifier] -> Context String -> Item String -> Compiler (Item String)
-- tsDefaultCompiler 

siteIndexCompiler :: Context String -> Item String -> Compiler (Item String)
siteIndexCompiler ctx =
    loadAndApplyTemplate "templates/site-index.html" ctx
        >=> defaultCompiler ctx

sitePageCompiler :: Context String -> Item String -> Compiler (Item String)
sitePageCompiler ctx =
    loadAndApplyTemplate "templates/site-page.html" ctx
        >=> defaultCompiler ctx

defaultCompiler :: Context String -> Item String -> Compiler (Item String)
defaultCompiler ctx =
    loadAndApplyTemplate "templates/default.html" ctx
        >=> cleanAndRelUrls

If I change the function like this

tsDefaultCompiler ::
    [Identifier] ->
    Context String ->
    Item String ->
    Compiler (Item String)
tsDefaultCompiler ts ctx =
    foldM
        (\acc b -> loadAndApplyTemplate b ctx)
        (empty :: Compiler (Item String))
        ts

Then it compiles but the result is always the empty.