-- TODO Class is a lie
module Buffer.Class where


type Buffer = (String, String)

emptyBuffer :: Buffer
emptyBuffer = ("", "")


-- TODO instance Show Buffer (w/newtype Buffer) (?)
showBuffer :: Buffer -> String
showBuffer (lhs, rhs) = lhs ++ rhs