Created
May 20, 2011 21:13
-
-
Save michaelschade/983815 to your computer and use it in GitHub Desktop.
Skeleton html' and htmlBody functions
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{- These imports will serve us for the remainder of the post -} | |
import Text.Blaze.Internal | |
import Text.Blaze.Html5 | |
import Text.Blaze.Html5.Attributes | |
import qualified Data.ByteString.Char8 as C8 | |
import qualified Data.Text as T | |
-- | HTML tag with no closing. | |
html' :: Html -> Html | |
html' = Parent "html" "<html" "" | |
-- | Special tag that opens only body but closes both body and html. | |
htmlBody :: Html -> Html | |
htmlBody = Parent "body" "<body" "</body></html>" |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment