{-# LANGUAGE OverloadedStrings #-}
module Application.HXournal.Builder where
import Text.Xournal.Type
import qualified Data.ByteString as S
import qualified Data.ByteString.Lazy as L
import Blaze.ByteString.Builder
import Blaze.ByteString.Builder.Char8 (fromChar)
import Data.Double.Conversion.ByteString
import Data.Monoid
import Data.Strict.Tuple
infixl 4 <>
(<>) :: Monoid a => a -> a -> a
(<>) = mappend
builder :: Xournal -> L.ByteString
builder = toLazyByteString . fromXournal
fromXournal :: Xournal -> Builder
fromXournal xoj = fromByteString "\n