Builder.hs

{-# LANGUAGE OverloadedStrings #-}

-----------------------------------------------------------------------------
-- |
-- Module      : Text.Hoodlet.Builder 
-- Copyright   : (c) 2014 Ian-Woo Kim
--
-- License     : BSD3
-- Maintainer  : Ian-Woo Kim <ianwookim@gmail.com>
-- Stability   : experimental
-- Portability : GHC
--
-----------------------------------------------------------------------------

module Text.Hoodlet.Builder where

import           Blaze.ByteString.Builder
import qualified Data.ByteString.Lazy.Char8 as L
-- 
import           Data.Hoodle.Simple
--
import           Text.Hoodle.Builder
--
-- | 
builder :: Item -> L.ByteString
builder = toLazyByteString . buildHoodlet


buildHoodlet :: Item -> Builder
buildHoodlet item = fromByteString "<?xml version=\"1.0\" standalone=\"no\"?>\n<hoodlet version=\"0.2.2\" >\n" 
                    <> buildItem item
                    <> fromByteString "</hoodlet>\n"