{-# LANGUAGE OverloadedStrings #-}
module Text.Xournal.Builder where
import Data.Xournal.Simple
import qualified Data.ByteString as S
import qualified Data.ByteString.Lazy as L
import Blaze.ByteString.Builder
import Blaze.ByteString.Builder.Char8 (fromChar, fromString)
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