summaryrefslogtreecommitdiffstats
path: root/src/Buffer/Class.hs
blob: 75664a5f0f989a7286b92c8802f3e53a23882ff0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
-- 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