Include contents in generated code.

This commit is contained in:
Dillon Kearns 2019-07-23 07:33:22 -07:00
parent 20c67bbbbf
commit d0b9c19498

View File

@ -17,18 +17,12 @@ port printAndExitFailure : String -> Cmd msg
generatePage : PageOrPost -> String generatePage : PageOrPost -> String
generatePage pageOrPost = generatePage pageOrPost =
interpolate """( [ {0} ] interpolate """( [ {0} ]
, \"\"\"|> Article , \"\"\"{1}\"\"\"
author = Dillon Kearns
title = Home Page
tags = software other
description =
How I learned to use elm-markup.
This is the home page.
\"\"\"
) )
""" """
[ "\"\"" ] [ "\"\""
, pageOrPost.contents
]
generate : { posts : List PageOrPost, pages : List PageOrPost } -> String generate : { posts : List PageOrPost, pages : List PageOrPost } -> String